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EQUATION GENERATION 
Equation Generation No* 1 

The coding for an equation is generated in three stages numbered 1, 2 and 
3. Number 1 produces a sorted list of symbols, No. 2 eliminates some redundant 
calculations, and No. 3 produces the coding. 

The idea of No. 1 is to add parentheses to the equation (which has been 
"strung out" one call word per computer word by the equation translator) and 
number call words by use of the parentheses in the expression. The numbered 
call words are then sorted and generator No. 2 takes over. 

Thus there are three passes made by No. Is processing (adding parentheses), 
numbering symbols, and sorting. An explanation of each of these follows a de¬ 
scription of the lists. 

The six lists made up or used by this routine are as follows: 

1) Translation List (WL) 

This is the input to the routine and is produced by the equation transla¬ 
tor. It contains one call word per computer word, the call words being in the 
v addresses, except that an open parenthesis is a 1 in the u address and a 
closed parenthesis is a 2 in the u address. See the equation translation de¬ 
scription for a more detailed explanation. 

2) Processed List (PR) 

The WL list is examined one call word at a time and parentheses are added 
where needed to produce this list. 

3) Numbered List (WL (same region as Translation List)) 

The Processed List entries are picked up one at a time, starting with the 
last symbol in the list, numbered, and then transferred to the Numbered List, 
with the exception of open and closed parentheses which are used to alter the 
Numbers of Symbols (NS) List and are not sent to the Numbered List. (See de¬ 
scriptions of numbering and Numbers of Symbols List.) 

4) Sorted List (PR (same region as Processed List)) 

This is the list produced by sorting the Numbered List so that larger 
numbers are at the beginning of the list. It is the output of the routine. 
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5) Parentheses List (PL) 

This is a two-word-per-item list which contains a code for the type of 
open parenthesis in the operation portion of the first word and the level bit 
in one of the remaining 30 bits. The second word contains the Processed List 
address of the parenthesis in the u address of the word. This list contains 
only items for open parentheses. 


Op 

u 


0 X 
0 0 

( level bit ) 

( P )| 


X = type of parenthesis 

X = 0 - "not special” 

X = 1 - level 
X = 2 - term 
X = 3 - Library 
X = 4 - POW 

P = address of parenthesis in PR list. 

6) Numbers of Symbols List (NS) 

This list is used when producing the Numbered List. In the Processed 
List every parenthesis will have a count in the v address to indicate how many 
parentheses are at this point. For example the following words might appear 
in the Processed List (not consecutively): 


Six open parentheses 
Four closed parentheses 

For every closed parenthesis encountered in the Processed List, numbers are 
added to the NS List. The number of numbers added is equal to the count in 
the v address of the closed-parenthesis word. Open parentheses are handled 
similarly except that numbers are deleted from the NS List. The numbers in 
the NS List are in the u addresses of the words. For example, at one time the 
NS List may look as follows: 


Op 

u 

- -' 

V 

0 0 

0 0 0 0 1 

0 0 0 0 6 

|o 0 

0 0 0 0 2 

0 0 0 0 4 
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Op u v 


NS 


0 

1 

0 

NS 

1 

0 

2 

0 

NS 

2 

0 

o 

o 

rv 

\J 

NS 

3 

0 

4 

0 

NS 

4 

0 

10 

0 

NS 

5 

0 

11 

0 

NS 

6 

0 

16 

0 

NS 

7 

0 

24 

0 


The last number in the list (24 in this one) is always the number added to a 
symbol call word to make up the numbered symbol for the Numbered List. (The 
length of list NS varies, of course.) The last number in the list is always 
the largest still in the list but there may have been larger numbers previous¬ 
ly. Parentheses are never put in the Numbered List; they are merely used to 
alter the NS List. Suppose we now encounter an open parenthesis with a count 
of 5. Five is subtracted from the last address (NS7) and the last address now 
becomes NS2 and the number to assign symbols is 3. Later we encounter a closed 
parenthesis with a count of 7. Numbers are added to the list starting with 
25 since we have already used 1 to 24. Since we must add 7 numbers the list 
becomes: 


Op u v 


NS 

0 

1 

0 

1 

0 

2 

0 

2 

0 

3 

0 

3 

0 

25 

0 

4 

0 

26 

0 

5 

0 

27 

0 

6 

0 

30 

0 

7 

0 

31 

0 

10 

0 

32 

0 

NS 11 

0 

33 

0 


and the next symbol (if not a parenthesis) will be numbered 33. 

The explanation of the three passes follows: 

Processing: 

A level bit is kept up to date at all times. It starts at the rightmost 
bit position and is shifted left by one every time an open parenthesis or open 
absolute-value sign is encountered, and right by one for every closed paren- 
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thesis or absolute-value sign. One may write up to 29 open parentheses and/or 
absolute-value signs before he must close some. That is, he may write symbols 
on the 29th level but not on higher levels. 

There are five types of open parentheses added to the Processed List. 
These are the level, term, library, POW, and anticipation (for want of a better 
name). A level and a term parenthesis are added to the Processed List every 
time an open parenthesis, open absolute-value sign or comma is encountered in 
the Translation List. A level parenthesis is put in the Processed List before 
the first symbol is picked up from the Translation List and, when the equals 
sign is encountered, level and term parentheses are also added. A term 
parenthesis is added at the beginning of each term, i.e., after a binary + or 
- sign. 

A library (LIB) parenthesis is added before each Library Routine symbol 
unless there is already an unclosed library parenthesis (on the same level) in 
the list. 

When POW is encountered, the last open parenthesis is changed to a POW 
parenthesis in the Parenthesis List (PL). 

The anticipation parenthesis is added in the following places: 

1) After every multiplication, division or unary minus sign in an¬ 
ticipation of the next operation being POW. (If is isn’t POW, the 
anticipation parenthesis will not alter the interpretation.) 

2) Before and after a library call word when there is already a li¬ 
brary parenthesis on this level. This is to handle the case: 

( LIB ( LIB ( X )) ) 
f A A 

Library 

where all of the parentheses have been added, i.e., none were 
originally written in the expression. This puts the rightmost 
Library Routine on the highest level. 

3) After a library call word so the operands will be assigned larger 
numbers than the library call word. 

4) Before every unary minus to associate the unary minus with the 
operand which follows. 
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The preceding discussion deals with open parentheses. When closing paren¬ 
theses, a closed parenthesis with a count of zero is added to the Processed 
List and open parentheses in the Parentheses List are examined one at a time 
starting with the last parenthesis item in the list. Parentheses are closed 
by adding one to the count of both the closed and open parentheses in the Proc¬ 
essed List. If the parenthesis just closed is not of the type sought, it is 
deleted from the Parentheses List by subtracting 2 from its address in the 


Paronthococ Tlc+ 


Thi e mi + o t ho n ov+ no *-on thoci c "on Hoot 1 

X I1X w ^/u VU UVA l✓ VII UWI\ 


continues until the type of parenthesis sought is closed. After this the pa¬ 
renthesis is left "on deck" or deleted from the Parenthesis List depending on 


circumstances. 


Following is a summary of what is done upon encountering each of the sym¬ 
bols of an equation in the Translation List ("level" means the level due to 
parentheses or absolute value signs written in the UNICODE Program.) 


Subscripted Variable - Anticipation parenthesis to Processed and Parenthe¬ 
ses lists. Variable call word to Processed List. 


Library Routine - 1) Previous library parenthesis on same level, still 

in Parenthesis List: Anticipation parenthesis to 
lists. Library call word to Processed List. Antic¬ 
ipation parenthesis to lists. 

2) No previous library parenthesis on same level, still 
in Parentheses List: Library parenthesis to lists. 
Library call word to Processed List. Anticipation 
parenthesis to list. 

P 0 W - 1) Previous POW parenthesis on same level, still in 

Parenthesis List: Close parentheses to POW paren¬ 
thesis (leave POW parenthesis "on deck"). POW to 
Processed List. 

2) Previous library parenthesis on same level, still 
in Parenthesis List: Close to library parenthesis 
and change it to a POW parenthesis in the Parenthe¬ 
sis L,ist (leave POW parenthesis "on deck"). 

POW to Processed List. 
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3) No previous library or POW parenthesis. Close to 
last open parenthesis and change it to a POW paren¬ 
thesis. POW to Processed List. 


Special powers 
(Square, Square Root, 
etc.) 


Same as POW then: Close to POW parenthesis (leave 
"on deck"). 


Open parenthesis and 
Open absolute value 
sign 


Increase level. Level and term parentheses to lists. 
(Note that no open absolute value sign is put in 
Processed List.) 


Closed Parenthesis 


Closed Absolute Value 
Sign 


Close to level parenthesis and delete it from Pa¬ 
renthesis List. Decrease level. 

Close to level. Absolute value sign to Processed 
List. Close to level and delete from Parenthesis 
List. Decrease level. 


+ or - sign 

Unary plus 
Unary minus 

Comma 

Equals sign 

* or / sign 

Space period 


Close to level. + or - to Processed List. Term 
parenthesis to lists. 

Ignore. 

Anticipation parenthesis to lists. Unary minus to 
Processed List. Anticipation parenthesis to lists. 

Close to level parenthesis. Add level and term pa- 
renthesisto lists. (Note no comma is sent to Proc¬ 
essed List.) 

Close to level parenthesis. Add level and term 
parentheses to lists. (Note no equals sign is sent 
to Processed List.) 

Close to term parenthesis. * or / to Processed 
List. Anticipation parenthesis to lists. 

Close to level parenthesis. Space period to Proc¬ 
essed List. Jump to numbering routine. 


In addition, indicator bits are kept for each term of the expression so 
ambiguous sequences can be recognized and a warning printed on the typewriter. 
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Then, if the programmer is not sure of the interpretation of UNICODE he can 
rewrite the sentence and put parentheses in the expression so he will be sure 
to get the correct interpretation. The following ambiguous terms are recog - 
nized (the interpretation of UNICODE is on the right): 


A POW B POW C = (A POW B) POW C 
A/B/C = (A/B) / C 
LIB A POW B = (LIB A) POW B 
LIB A*B - (LIB A) * B 
LIB A/B - (LIB A) / B 

Compilation continues after the warning is printed. 


Numbering: 


Call words are numbered by use of the last number in the Numbers of Sym¬ 
bols List (NS). The numbers in this list are in the u addresses, one number per 
word. Two things must be known to use this list: 

1. The address of the last number in the list. 

2. The largest number put in the list so far. (The last number in 
the list is the largest in the list but not necessarily the larg¬ 
est number which has been in the list for this equation.) 

Once a number has been in the list and has been taken out, it will not appear 
in the list again. The first number put in the list is 1. 

Call words and parentheses are picked up from the Processed List starting 
with the last call word (space period). Call words other than parentheses are 
numbered with the last number in the NS List; then the numbered call word is 
sent to the Numbered List. 


When a closed parenthesis is encountered, numbers are added to the NS 
List, the number of numbers added being equal to the count associated with the 
closed parenthesis. Numbers which are added are equal to the largest number 
which is or has been in the list plus 1. The address of the last number in 
the list is increased by one for each number added to the list, of course. 

When an open parenthesis is encountered, the count is subtracted from the 
address of the lost number in the list, hence essentially deleting numbers from 
the list. 
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The space period is numbered zero. 

Sorting: 

The Numbered List is sorted, largest first, to produce the Sorted List 
which is the output of equation generator No. 1. 

For example, consider the following equation as input to the routine. 

F (I, J) - - X POW Y + (SIN | u - v { ) * WA . 

The Processed List would be as follows (numbers above parentheses are counts 
and letters below are types, where L - level, T = term, A = anticipation, 

B = library, P - POW.): 

11 11 2 11 22 211 2 1 4 2 111 1 31 2 1 2 141 1 3 

((F ((I) ((J)) (((-(X) POW Y) + ( (((SIN ( ((u)-(v) I ))) * (w)A . 

LA LT LT LTA A T LTB A LT T A 

P 
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Numbering the symbols: 


A. is numbered zero and sent to Numbered List. 


Symbol 

NS List 

Numbered List 

Number 

Symbol 

A. 


0 

A. 

5 

1.2,3 



W 


3 

W 

1 

( 

1.2 



j’i 


2 

* 

1 

) 

1,2,4 



4 




) 

1,2,4,5,6,7,8 



j 

1,2,4,5,6,7,8,9 



1 


9 

1 

2 




) 

1,2,4,5,6,7,8,9,10,11 



V 


11 

V 

( 

1,2,4,5,6,7,8,9,10 



- 


10 

— 

2 




) 

1,2,4,5,6,7,8,9,10,12,13 



u 


13 

u 

( 

1,2,4,5,6,7,8,9,10,12 



3 




( 

1,2,4,5,6,7,8 



( 

1,2,4,5,6,7 



SIN 


7 

SIN 

(' 

1,2,4,5,6 



(' 

1,2,4,5 



(' 

1,2,4 



2 




( 

1 



+ 


1 

+ 

4 




✓ 

1,i4,l5,lu,17 



Y 


17 

Y 

POW 


17 

POW 

i 

) 

1,14,15,16,17,18 














Symbol 

NS List 

Numbered List 

Number 

Symbo1 

X 


18 

X 

2 




( 

l t 14,15,16 



- 


16 

- 

( 

1,14,15 



1 

( 

1,14 



2 




( 

list empty 



) 

19,20 



f 

19,20,21,22 



J 


22 

J 

(' 

19,20,21 



(' 

19,20 



2 




) 

19,20,23,24 



I 


24 

I 

(' 

19,20,23 



(' 

19,20 



F 


20 

F 

(' 

19 



(' 

list empty 




Note: Numbers over parentheses denote count of parentheses occurring 
at this point. 


Sorted List: 


I 

J 

F 

X 

Y \ 
POW J 

u 

V 


SIN 

W 

+ 

A. 


both numbered 17 but operands always have larger call words 
than operations. 

Unary 


Binary 
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Equation Generation No. 1 













1204 






















1205 



Ambig. \ 


Clear \ 

term checker 


ind. 












1206 








Clear LIB, POW, 
/ indicators 


m 


i— I 


A ( to 
lists 


CC 
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Open Parenthesis to Lists (VY) 





















Clear Indicators (VB) 



Clear LIB, POW, 
/ ind. this 
level this term 



Check for Ambiguity (XB) 
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NUMBERING ROUTINE 



Sort Routine 











Equation Generator No. 1 Regions and Coding 


Region 

Address 

Name or Symbol Handled 

VD 

2512 

Setup 

VB 

2523 

Clear Indicators 

VC 

2532 

Constants 

VE 

2616 

Switch 

\TTT 
v r 

O £.C.A 

C* 1 - \T - 4 ~ U 1 ~ 

JUUdCi ± P t CU Veil IdJjlC 

VH 

2660 

Library Routine 

VI 

2674 

Special POWS 

VJ 

2752 

Open Parenthesis and Open absolute 

VK 

2760 

Closed Parenthesis 

VL 

2770 

Closed Absolute Value 

VM 

3003 

+ or - 

VN 

3013 

Unary - 

VO 

3020 

Comma 

VP 

3033 

•= 

VQ 

3044 

* 

VR 

3062 

/ 

VS 

3075 

POW 

VT 

3077 

A . 

vu 

3114 

Numbering Routine 

vw 

3147 

Close Parentheses 

vx 

3172 

(+1 and ) +1 

VY 

3202 

Add Parenthesis to List 

VZ 

3220 

Symbol to Processed List 

XA 

3226 

Trans. List +1 

XB 

3230 

Check for Ambiguity 

XC 

3236 

Constants 

SR 

3244 

Sort Routine 

VA 

3324 

Variable 

PR 

3351 

Processed List 

NS 

4351 

Numbers of Symbols List 

PL 

5351 

Parentheses List 

WL 

2242 

Translation List 

NT 

2774 

Close to level and Sym-— Processed List 
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Setup Equation Generation 



IA 

VD 


0 

MJ 

0 

(30000) 

1 

RP 

13025 

VD3 l 

2 

TP 

VC 

VA J 

3 

TP 

VC4 

VA 

4 

RP 

30004 

VD6 1 

5 

TP 

VC60 

VA6 / 

6 

TP 

VC44 

VY2 1 

7 

RJ 

VY 

VY1 J 

10 

MJ 

0 

VE 


CA 

VD11 




IA 

XA 


0 

RA 

VA6 

VC1 

1 

MJ 

0 

VE 


CA 

XA2 



Exit 

Clear variables 

Level bit 

Set list addresses 

Add level ( to lists 



Sym/wd list +1 

- ® 



Translation Switch 




IA 

VE 


0 

hj 

VA6 

VE1 

1 

TP 

(30000) 

0 

2 

QT 

VC13 

A 

3 

EJ 

VC13 

VF 

4 

EJ 

VC14 

VF2 

5 

EJ 

VC15 

VH 

6 

EJ 

VC17 

VI 

7 

QT 

VC7 

A 

10 

EJ 

VC42 

VJ 

11 

EJ 

VC43 

VK 

12 

TP 

Q 

A 

13 

EJ 

VC21 

VJ 

14 

EJ 

VC22 

VL 

15 

EJ 

VC40 

VL 

16 

EJ 

VC23 

VM 

17 

EJ 

VC24 

VM 

20 

EJ 

VC25 

VM 

21 

EJ 

VC26 

VM 

22 

EJ 

VC27 

VN 

23 

EJ 

VC30 

VN 

24 

EJ 

VC31 

VO 

25 

EJ 

VC32 

VP 

26 

EJ 

VC33 

VQ 

27 

EJ 

VC34 

VQ 

30 

EJ 

VC35 

VR 

31 

EJ 

VC 36 

VR 

32 

EJ 

VC37 

VS 

33 

EJ 

VC56 

VS 

34 

MJ 

0 

VT 


CA 

VE35 



Symbol — Q 

Ss. var. 77,76,75, ~>VF 
Sinqle operand-* VF2 
LIB — VH 
POW T S —VI 

(— VJ 

) — VK 
CW — A 

| (open)— VJ 
(closed)— VL 

+ — VM 

- — VM 

Unary —* VN 

, — VO 
= “• VP 

* — VQ 

/ — VR 

POW — VS 
Assume A. 
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Subscripted Variable 


0 

IA 

TP 

VF 

VC 

VY2 \ 

0 (— lists 

1 

RJ 

VY 

VY1 } 

2 

RJ 

VZ 

VZ1 

Subscripted variable to Processed List 

3 

MJ 

0 

XA 

— a 


CA 

VF4 




Library Routine 



IA 

VH 


TP 

VA 

Q 

QT 

VA3 

A 

ZJ 

VH12 

VH3 

QS 

VC55 

VA3 

TP 

VC46 

VY2 

RJ 

VY 

VY1 

RJ 

VZ 

VZ1 

TP 

VC 

VY2 

RJ 

VY 

VY1 

MJ 

0 

XA 

TP 

VC 

VY2 

MJ 

0 

VH5 

CA 

VH14 



LIB? — VH12 
No I 

Set LIB 


LIB (— lists 
LIB— Pro. List 
0 C— lists 


- © 

0 C— lists 
- @ 
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Special POWS 



IA 

tr*r 

V.L 

0 

TP 

VA 

1 

QT 

VA4 

2 

ZJ 

VI51 

3 

QS 

VC55 

4 

QT 

VA3 

5 

ZJ 

VI34 

6 

TP 

VA11 

7 

ST 

VC1 

10 

TU 

A 

11 

TU 

(30000) 

12 

RA 

(30000) 

13 

TV 

VA7 

14 

TP 

VC5 

15 

RA 

VA7 

16 

TV 

VA11 

17 

TP 

VC47 

20 

AT 

VA 

21 

RA 

VA11 

22 

TV 

VA11 

23 

TU 

VI12 

24 

RA 

VA11 

25 

RJ 

VZ 

26 

RJ 

VI26 

27 

TP 

VC 

30 

SP 

VC47 

31 

AT 

VA 

32 

RJ 

vw 

33 

MJ 

0 

34 

TP 

VC20 

35 

TP 

VC46 

36 

AT 

VA 

37 

RJ 

VW 

40 

TV 

VA11 

41 

TP 

VC47 

42 

AT 

VA 

43 

RA 

VA11 

44 

TN 

VA 

45 

QT 

VA3 

46 

TP 

VA 

47 

QS 

VC55 

50 

MJ 

0 

51 

TP 

VC 

52 

TP 

VC47 

53 

AT 

VA 

54 

RJ 

VW 

55 

MJ 

0 


CA 

VI56 


} 


0 ) 
VA3 / 

Q ) 
VA2 i 

VI25 

VW2*\ 

A > 
VW3 f 

VWlJ 

VI46 


POW this level? VI51 
No | 

Set POW 
LIB? — VI34 
No i 


Add 1 to count of last open 


) (count of one)— Pro. List 
Increase add. of Pro. List 

POW (— ( list 

( list +1 

Add. of POW (— ( list 
( list + 1 

Sq. sqrt. etc.— Pro. List 
Exit 

Close to POW (no clear) 

- © 

LIB 

Close to LIB (clear) 


Change LIB to POW 

( List +2 
Clear LIB 

Set print term 
- © 

Close to POW 
- © 


1215 



Open Parenthesis ( and Open Absolute | 



IA 

VJ 


0 

LQ 

VA 

1 

1 

TP 

VC44 

VY2 

2 

RJ 

VY 

VY1 

3 

TP 

VC45 

VY2 

4 

RJ 

VY 

VY1 

5 

MJ 

0 

XA 


CA 

VJ6 



Raise level 


Add level and term ( ' s 


® 


Closed ) 



IA 

VK 


0 

RJ 

XB 

XB1 

1 

RJ 

VB 

VB1 

2 

TP 

VC20 

VW2 

3 

TP 

VC44 

A 

4 

AT 

VA 

VW3 

5 

RJ 

VW 

VW1 

6 

LQ 

VA 

43 

7 

MJ 

0 

XA 


CA 

VKI0 



Print term checker 
Clear ind. 


Close to level (clear) plus lower level 


Lower level 

- © 
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Closed Absolute Value I 



IA 

VL 



0 

RJ 

XB 

XB1 

— Amb. term check 

1 

RJ 

VB 

VB1 

Clear ind. 

2 

RJ 

NT 

NT1 

Sym — Pro. List 

3 

MJ 

0 

VK2 

Close to level (clear) 


CA 

VL4 





IA 

NT 




0 

MJ 

0 

30000 

Exit 


1 

TP 

VC 

VW2"! 



2 

3 

TP 

AT 

VC44 

VA 

A l 

VW3 f 

Close 

to level (no clear) 

4 

RJ 

vw 

VW1J 



5 

RJ 

vz 

VZ1 

Sym — 

Processed List 

6 

MJ 

0 

NT 

Exit 



CA 

NT7 





i or - 



IA 

VM 



0 

RJ 

XB 

XB1 

— Ambiguous term checker 

1 

RJ 

VB 

VB1 

Clear 

2 

RJ 

NT 

NT1 

Close to level (no clear) sym—Pro. 

3 

TP 

VC45 

VY2\ 

Term (— list 

4 

RJ 

VY 

VY1 J 

5 

MJ 

0 

XA 

- © 


CA 

VM6 
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Unary Minus 



IA 

VN 




0 

TP 

VC 

VY2 \ 

0 

(— lists 

1 

RJ 

VY 

VY1 / 

2 

RJ 

VZ 

VZ1 

- 

— Pro. List 

3 

RJ 

VY 

VY1 

0 

( — lists 

4 

MJ 

0 

XA 

— 

■ © 


CA 

VN5 




Comma 



IA 

VO 



0 

RJ 

XB 

XB1 

Amb. term checker 

1 

TP 

VC20 

VW2 > 

i 

2 

3 

TP 

AT 

VC44 

VA 

A 

VW3 

> Close to level (clear) 

4 

RJ 

VW 

VW1, 


5 

TP 

VC44 

VY2 


6 

7 

RJ 

TP 

VY 

VC45 

VY1 

VY2 

|> Add level & term ( T s 

10 

RJ 

VY 

VY1, 


11 

RJ 

VB 

VB1 

Clear 

12 

MJ 

0 

XA 

- © 


CA 

V013 
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Equals (-) 



IA 

VP 


0 

TP 

VC20 

VW2 > 

1 

TP 

VC44 

A l 

2 

AT 

VA 

VW3 j 

3 

RJ 

VW 

VW1 

4 

TP 

VC44 

VY2] 

5 

RJ 

VY 

VY1 [ 

6 

TP 

VC45 

VY2 r 

7 

RJ 

VY 

VY1 

10 

MJ 

0 

XA 


CA 

VP11 



Close to level (clear) 


A Hr? 1 QTfD 1 fL + ( * 


n^« u j. v 


© 


Floating and Fixed * 





IA 

VQ 


0 

TP 

VA 

Q 

1 

QT 

VA3 

A 

2 

ZJ 

VQ3 

VQ4 

3 

QS 

VC55 

VA2 

4 

TN 

VA 

Q 

5 

RJ 

VB 

VB3 

6 

TP 

VC 

VW2 

7 

TP 

VC45 

A 

10 

AT 

VA 

VW3 

11 

RJ 

VW 

VW1 

12 

RJ 

VZ 

VZ1 

13 

TP 

VC 

VY2 

14 

RJ 

VY 

VY1 

15 

MJ 

0 

XA 


CA 

VQ16 



} 

) 

} 


LIB | no - § 

Set print term 
Clear LIB, POW, / 

Close to term (no clear) 

* — Pro. List 
0 (-— lists 

- © 
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Floating and Fixed / 




IA 

VR 





0 

TP 

VA 

Q 1 

i 



1 

2 

QT 

ZJ 

VA5 

VR6 

A ! 
VR3 J 

1 

VR6 

no 1 

3 

QS 

VC55 

VA5 

Set 

/ 


4 

5 

QT 

ZJ 

VA3 

VR6 

A 1 
VR7 J 

[ LIB 

1 no — @ 

6 

QS 

VC55 

VA2 

\ 

Set 

print 

term 

7 

TN 

VA 

Q 




10 

QT 

VA3 

VA3 | 

> Clear LIB 

& POW 

11 

QT 

VA4 

VA4 J 

1 



12 

MJ 

0 

VQ6 

— 

© 



CA 

VR13 






POW 


IA VS 

0 RJ VI26 VI — POW sect. 

1 MJ 0 XA — © 

CA VS2 


1220 




Space Period A 



IA 

VT 



0 

1 

TP 

QJ 

VA16 

VT2 

0 1 
VT5J 

^ Print term 1 no — VT5 

2 

RJ 

WA 

WA2 ] 

1 

3 

TP 

xc 

UP3, 

> Print WARNING f AA AMBIGUOUS TERMS 

4 

RJ 

UP2 

UP J 

1 

5 

TP 

VC20 

VW21 


A 

yj 

7 

TD 

-L JL 

AT 

\rr A a 

V 

VA 

A 

VW3 

Close to level (clear) 

10 

RJ 

VW 

VW1 > 


11 

RJ 

VB 

VB1 

Clear 

12 

RJ 

VZ 

VZ1 

A . — Pro. List 

13 

TP 

VC60 

VA6 

Set address of no. list 

14 

MJ 

0 

vu 

numbering routine 


CA 

VT15 


Print 


0 

IA 

40 

XC 

XC1 

5 







1 

71 

24545 

03450 

W 

A 

R 

N 

I 

N 

2 

32 

21010 

12447 

G 

t 

A 

A 

A 

M 

3 

25 

34326 

75167 

B 

I 

G 

U 

0 

U 

4 

65 

01663 

05447 

S 

A 

T 

E 

R 

M 

5 

17 

CA 

65432 

XC6 

27777 

( 

S 

) 

• 

77 

77 
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Numbering Routine 



IA 

VU 


0 

TP 

VC6 

VA14 

1 

RS 

VA7 

VC1 \ 

2 

TJ 

VC61 

SR J 

3 

TO 

A 

VU4 \ 

4 

TP 

(300001 

Q / 

5 

QT 

VC7 

A 

6 

EJ 

VC42 

VU16 

7 

EJ 

VC43 

VU23 

10 

TO 

VA10 

VU11\ 

11 

TP 

(30000) 

A / 

12 

TV 

VA6 

VU13 

13 

AT 

Q 

(30000) 

14 

RA 

VA6 

VC1 

15 

MJ 

0 

VU1 

16 

QT 

VC12 

Q , 

17 

SP 

Q 

17 1 

20 

AT 

Q 

VA15> 

21 

RS 

VA10 

VA15J 

22 

MJ 

0 

VU1 

23 

QT 

VC12 

A 

24 

ST 

VC4 

VA15 

25 

RA 

VA10 

VC1 

26 

TV 

VA10 

VU27 

27 

TP 

VA14 

(30000) 

30 

RA 

VA14 

VC6 

31 

IJ 

VA15 

VU25 

32 

MJ 

0 

VU1 


CA 

VU33 



Set ( no. -1 
Finished numbering—SR 

Sym — Q 

(— VU16 
) — VU23 

No.— A 

No. sym — list 
Address +1 

Count — Q 

Take nos. off list 

Count — A 
Set index 

Add nos. to list 
Increase highest no. 


No 1 
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Sort Routine 


0 

1 

2 

3 

4 

5 

6 
7 

10 

11 

12 

13 

14 

15 

16 
17 
20 
21 
22 

23 

24 

25 

26 
27 

30 

31 

32 

33 

34 

35 

36 

37 

40 

41 

42 

43 

44 

45 

46 

47 

50 

51 

52 

53 

54 

55 


IA 

SR 

SP 

VA6 

ST 

VC60 

TP 

VC 7 

QS 

VA21 

RP 

30000 

TN 

WL24 

TP 

VC60 

SP 

VC61 

SA 

VA21 

ST 

VC1 

TV 

A 

TP 

WL24 

RA 

VA6 

TU 

A 

TU 

A 

ST 

VC60 

TP 

VC7 

QS 

VA22 

TU 

VA7 

TP 

(30000) 

RP 

20000 

TJ 

(30000) 

TU 

SR24 

LQ 

Q 

SP 

VA24 

SS 

Q 

ST 

VC 3 

AT 

VC 52 

MJ 

0 

TP 

VC 7 

QS 

SR24 

QS 

SR24 

SP 

VC54 

SA 

VA7 

ST 

VC4 

RP 

3OO0O 

TP 

(30000) 

LQ 

VA12 

SP 

SR44 

SA 

Q 

TV 

A 

mn 

ir 

(30000) 

RS 

VA7 

TJ 

VC 50 

MJ 

0 

TU 

SR4 


No. to be sorted— VA21 
Set n of repeat 
List negative 

Address of no. list ~ WL24 
Address of Sorted List — VA7 


1st sym—Sorted List 
No. List +1 

# of nos. in Sorted List — VA22 

Set n of repeat 

Set address of Sorted List 
#— A 

largest # yet — SR35 No i 
j n — VA24 

r - 1— VA12 

Set repeat to move back nos. 

Set to move back all nos. 

r -1 - all nos. 

TP 0 0 

TP SL+ SL+ 

TP SL+ (SL+) -1 

Move nos. back 

r _ i— y address 

TP no. L+ (SL+) + r - 1 


Sorted list address -1 
Done — SR55 no J 
— SR14 
Set n of repeat 
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56 RP 0 

57 TN PR 
CA SR60 


VD 1 Exit 

WL4J Change to positive 
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Add Parenthesis to Lists 



IA 

VY 



0 

MJ 

0 

(30000) 

Exit 

1 

MJ 

0 

VY3 

Start 

2 

0 

0 

0 

Type of ( to add 

3 

4 

TV 

TP 

VA7 

VC42 

VY4 1 

(30000) J 

^ (—* Processed List 

5 

TV 

VA11 

VY7 | 

[ 

6 

Tp 

vi*: 

A 

r Code word — ( list 

7 

AT 

VA 

(30000)J 

1 

10 

RA 

VA11 

VC1 ] 

I 

11 

TV 

VA11 

VY12 

> Address— ( list 

12 

TU 

VA7 

(30000) J 

I 

13 

RA 

VA7 

VC1 

Pro. List +1 

14 

RA 

VA11 

VC1 

( list + 1 

15 

MJ 

0 

VY 

Exit 


CA 

VY16 

Sym — 

Processed List 



IA 

VZ 



0 

MJ 

0 

(30000) 

Exit 

1 

TU 

VA6 

VZ3 


2 

TV 

VA7 

VZ3 

Sym— Pro. List 

3 

TP 

(30000) 

(30000) 


4 

RA 

VA7 

VC1 

Pro. List +1 

5 

MJ 

0 

VZ 

Exit 


CA 

VZ6 




(no level) 


(count zero) 
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Close Parentheses 


0 

IA 

MJ 

vw 

0 

(30000) 

Exit 

1 

MJ 

0 

VW4 

Start 

2 

0 

0 

0 

- Take off list, 4- leave on 

3 

0 

0 

0 

Code of ( and level 

4 

TV 

VA7 

VW5 \ 

) —• Pro, List (count zero) 

5 

TP 

VC43 

(3oooo)j 

6 

TU 

VA11 

vwiol 


7 

RS 

VW10 

VC57> 

Code of ( — A 

10 

TP 

(30000) 

A J 


11 

EJ 

VW3 

VW15 

= — VW15 no 1 

12 

RJ 

VX 

VX1 

( +1 and ) + 1 

13 

RS 

VA11 

VC2 

Take ( off list 

14 

MJ 

0 

VW6 

Return 

15 

RJ 

VX 

VX1 

( +1 and ) + 1 

16 

TP 

VW2 

° ) 
VW21J 

Delete from list 1 no— VW21 

17 

QJ 

VW20 

20 

RS 

VA11 

VC2 

Clear ( from list 

21 

RA 

VA7 

VC1 

Add. of Pro. List +1 

22 

MJ 

0 

VW 

Exit 


CA 

VW23 







( 

+1 

and ) +1 



IA 

VX 





0 

MJ 

0 

(30000) 

Exit 


1 

TU 

VW10 

VX3 j 




2 

RA 

VX3 

VC 3 


Increase count on 


3 

TU 

(30000) 

VX4 

> 

open 

4 

RA 

(30000) 

VC4 j 




5 

TU 

VA7 

VX61 


Increase count on 

closed 

6 

RA 

(30000) 

VC4J 


7 

MJ 

0 

VX 


Exit 



CA 

VX10 
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Clear Indicators 



IA 

VB 




0 

MJ 

0 

(30000) 

Exit 


1 

TN 

VA 

0 



2 

QT 

VA2 

VA2 

P.T. 

■'i 

3 

QT 

VA3 

VA3 

LIB 


4 

QT 

VA4 

VA4 

POW 

f 

5 

QT 

VA5 

VA5 

DIVIDE 


A 

V/ 

MT 

1UV 

n 

V 

VB 

F v i + 

J 


CA 

VB7 








Check 

for Ambiguity 


IA 

XB 




0 

MJ 

0 

(30000) 

Exit 

1 

TP 

VA 

0 



2 

QT 

VA2 

A 


Ambiguity J no 

3 

ZJ 

XB4 

XB 

1 


4 

TP 

VC20 

VA16 

Set indicator 

5 

MJ 

0 

XB 


Exit 


CA 

XB6 





clear 


exit 
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Constants 


IA VC 


0 

0 

0 

0 

1 

0 

1 

1 

2 

0 

2 

2 

3 

0 

1 

0 

4 

0 

0 

1 

5 

0 

2 

1 

6 

0 

1 

0 

7 

0 

07777 

0 

10 

0 

0 

0 

11 

0 

0 

07777 

12 

0 

0 

77777 

13 

0 

0 

70000 

14 

0 

0 

60000 

15 

0 

0 

50000 

16 

0 

0 

40000 

17 

0 

0 

10000 

20 

40 

0 

0 

21 

0 

0 

10 

22 

0 

0 

12 

23 

0 

0 

20 

24 

0 

0 

21 

25 

0 

0 

30 

26 

0 

0 

31 

27 

0 

0 

32 

30 

0 

0 

33 

31 

0 

0 

40 

32 

0 

0 

50 

33 

0 

0 

60 

34 

0 

0 

61 

35 

0 

0 

70 

36 

0 

0 

71 

37 

0 

0 

100 

40 

0 

0 

13 

41 

0 

0 

120 

42 

0 

1 

0 

43 

0 

2 

0 

44 

1 

0 

0 

45 

2 

0 

0 

46 

3 

0 

0 

47 

4 

0 

0 

50 

0 

PR1 

PR1 

51 

0 

PR1000 

PR1000 

52 

RP 

30000 

SR45 

53 

0 

0 

2 

54 

TP 

0 

0 

55 

77 

77777 

77777 


Zero 

One 

Two 

One in u 
One in v 
) count of 1 
( numbering bit 
Sort 

NP routine 


Sub. var. 

Single operand 
LIB 

Pseudo Op. 

POW’S 

Close off bit indicator 
I (open) 

I (closed) floating 
FI. + 

Fx. + 

FI. - 
Fx. - 

FI. Unary - 
Fx. Unary - 


FI. * 

Fx. * 

FI. / 

Fx. / 

POW 

I (closed) fixed 

A . 

( 

) 

Level 

Term 

LIB 

POW 

Sort 

Limit of Processed List 
Sort routine 
NP3 and NP32 
Sort 
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56 

0 

0 

101 

POW Cint.) 

57 

0 

2 

0 

2 in u 

60 

f\ 

\J 

WL24 

WL24 

Sym/wd and No. Lists 

61 

0 

PR 

PR 

Processed and Sorted Lists 

62 

0 

NS 

NS 

Number of Symbol List 

63 

0 

PL 

PL 

Parenthesis List 


CA 

VC64 




Variables (VA) - Explanation of Temporaries 


0 

0 

0 



1 

Level bit 

1 

( 

) 




Combination List size 

2 






Print Term this level 

3 






LIB this level 

4 






POW this level 

5 






Divide this level 

6 

( 

) 

( 


) 

Address in Sym/Wd List and Numbered List 

7 

( 

) 

( 


) 

Address in Processed List and Sorted List 

10 

( 

) 

( 


) 

Address of Symbol Number 

11 

( 

) 

( 


) 

Available address in ( list 

12 

( 

) 




r - 1 in sort 

13 

( 

) 




j n in print 

14 






Highest number of (’s 

15 






Index 

16 






Temp 1- ambiguous term bit 

17 

( 

) 




Temp 2 

20 

( 

) 




Temp 3- add. to start pr. of Pro. List 

21 


( ) 


( 

) 

n of repeat to set Pro. List 

22 


( ) 


( 

) 

# of nos. in Sorted List 

23 

0 

0 

( 

0 

) 

Unused 

24 

( 

) 




j n in sort. 
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EQUATION GENERATION NO. 2 


EQUATION REDUNDANCY CHECK AND EQUATION GENERATION PHASE 

The purpose of the Equation Redundancy check and Equation Generation 
Phase is two-fold: 

1) The elimination of redundant calculations within the same equation; 

2) The generation of a relatively coded routine for each equation. 

The inputs to this phase are the Sorted List, the Dimension List, and the 
Pseudo Operation List. The symbols for a given equation are obtained in order 
from the Sorted List and each operator, together with its operand (s), is put 
in the form of a pseudo instruction to facilitate the check for redundant cal¬ 
culations. These pseudo instructions are entered in what is called the Expand¬ 
ed List, unless an identical pseudo instruction has been previously entered. 

In the case of an identical previous entry, the current pseudo instruction re¬ 
presents a redundant calculation and provision is made to utilize the result 
of the prior calculation. Through the special formats for the pseudo instruc¬ 
tions, many redundant calculations will be eliminated. For example: 

1) Identical Symbol Strings . 

eg., X - sin (A+B+C-D/E) + (A+B+C-D/E) Pow 2 

The quantity (A+B+C-D/E) will be calculated only once. 

2) Simple Transpositions , 
eg., X = A^B-sinCB^A) 

The quantity A*B will be recognized as equivalent to the quantity B*A 
and would not be recomputed. 

3) Transpositions within Expressions where some reordering is caused by 
the hierarchy of operators. 

eg., X = (A+B*C)/E - tan((C*B+A)/E) 

The quantities (A+B*C)/E and (C*B+A)/E will be recognized as equival¬ 
ent and only one computation will be made. 

A unique partial result symbol for each calculation is entered in the Ex¬ 
panded List following each pseudo instruction. This partial result symbol 
identifies the result of a given calculation as an operand for a succeeding cal 
culation. When a partial result from a calculation is used as an operand for 
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the next calculation, register storage (A or Q) may be utilized; hence, each 
pseudo instruction is checked to determine if the last assigned partial result 
appears as one of its operands. In this way, effective utilization of regis¬ 
ter storage is realized; thereby minimizing the need for temporary storage. 


The Expanded List, together with lists of supplemental information, 
serves as input for the generation of the relatively coded equation routine. 
Each pseudo instruction is obtained in order from the Expanded List and decoded, 


TVid c O y* -J on a -f vol n + i ttoI Tr Ar] mn a Vi i n A l m c*+ »*»/» + 1 r\w o vi ap no v»tt + a rvnv* v*w» 

mo ov^i. j. v^o yj -l a oia uj. v vajt wuv/u 111a viiahv uioti wv> c jl vn o uoooooa r j tu pCi xuiiu 


+ n a 

v no 


required computation and store the partial result is then generated. After 
all pseudo instructions have been processed, the fixed constants and relative 
constants are transferred to the generated routine package. At this time 
also, the Op File describing this generated routine is prepared. The equation 
routine and Op File are then transcribed on magnetic tape for use as input to 
succeeding phases of the compiler. 


As an example, consider the equation: 
X = A+B*C - sin(C*B) 


In the Sorted List this equation would appear as: 
X 

B 

C 

* 

A 

+ 

C 

B 

sin 


A. 

Following the elimination of redundant calculations, the equation appears 
in pseudo instruction form in the Expanded List as: 
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❖ 

B 

C 



PR 1 

+ 

PR 1 

A 



PR 2 

sin 

0 

PR 1 



PR 3 

- 

PR 2 

PR 3 



PR 4 

A. 

PR 4 

X 


Note 1: (PR_) represents unique par¬ 

tial result symbols. 

Note 2: The computation of the quantity 
(C*B) is recognized as a redun¬ 
dant calculation and the result 
of the prior calculation (PR 1) 
is used as the argument for the 
’’sin" operator. 


The Expanded List is processed to form the following generated equation 


routine: 

EXIT 

ENTRY 


MJ 

0 

L 3 


FM 

B 

c 

B*C -*■ Q 

TP 

Q 

TEMP 1 

B*C — TEMP 1 

FA 

0 

A 

B*C+A — Q 

TP 

Q 

TEMP 2 

B*C+A — TEMP 2 

TP 

TEMP 1 

SIN 

B*C — SIN + 3 

10 

0 

3 


RJ 

SIN 

SIN 

SIN(B*C)— 0 

10 

2 

0 


TN 

Q 

Q 

-SIN(B*C)— Q 

FA 

Q 

TEMP 2 

C-SIN(B*C) 3 + [B*C+A] * Q 

TP 

Q 

X 

A + B*C-SIN(B*C)— X 


Consider another equation which appears in the Sorted List as: 

8 X 

6 B 

5 C 

4 D 

4 POW 

3 * 

2 A 

2 + 

1 A. 

Following the elimination of redundancies (none in the example), the 
equation appears in the Expanded List as: 
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POW 

C 

D 

PR 1 

* 

PR i 

B 

PR 2 

+ 

PR 2 

A 

PR 3 

A. 

PR 3 

X 


Finally, the generated equation routine would be 


EXIT 

ENTRY 


MJ 

0 

n ] 

TP 

C 

POW 

10 

0 

3 

TP 

D 

POW 

10 

0 

4 

RJ 

POW 

POW 

10 

2 

0 

FM 

0 

B 

FA 

Q 

A 

TP 

Q 

X 

MJ 

0 

EXIT 
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1234 


Equation Redundancy Check (Symbol Search) 



Setup 

_ 

Zeroize 


Advance address 


Next symbol from Sorted 

Redundancy 


condition 


in Sorted List 


List to working 

Check 


indicator 


by one 


temporary 3 & Av 



Is this 

library operator 
symbol? 



Is this constant 
or non-subscripted 
variable symbol? 


YES 




NO 


Assumed to be \ 
subscripted vari- 
able symbol_ 


<D 




d> 


Mask four least 
significant octal 
digits of oper¬ 
ator symbol to Au 


Floating point 
"** absolute value 
operator? 


YES 



Fixed point 
absolute value 
operator? 



IES.>@ 



Floating point ^ 
addition 
operator? 


©*■ 


NO 


Floating point 
subtract 
operator? 



Fixed point 
addition 
operator? 


uJES 

t 

® 

YES 

r= \ 





Fixed point 
subtract 
operator? 




Floating point\ 
^unary minus 
operator? 


Fixed point 
unary minus 
opera tor ? 

YES 



Equals (or 
by) operator? 



Floating point 
multiplication 
operator? 

YES 

Fixed point 
multiplication 
operator? 
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Operator for 
storing result? 
^i.e. symbol'' 

~ Iyes 

(117) 



q/ Operator for 
/ integral power 
rom 4 thru 63? 


54 


Of Operator for 
Integral power 
rom -4 thru 63?, 




Operator for 
integral power 
equal to 3? 



YES 


YES 


Operator for 
Integral power 
equal to -3? 



YES 



Operator for 
Integral power 
equal to 2? 



Operator for 
integral power 
equal to -2? 


YES 


® 



Operator for 
power equal 
to 1/2? 


YES 


® 



Operator for 
power equal 

to -1/2? 


YES 


© 


YES 


® 


Assumed to be 
operator for 
power = -1? 











END EQUATION REDUNDANCY CHECK 


Return from \ 
storage operator 




Initial address in 
Expanded List +2 
to ninth word in 
Running Address List 


Exit from equation\ 
redundancy check 
phase 



jn for "redundant partial 
result" list search to 
.=► third word of Running 
Address List 


Initial relative run¬ 
ning address to fourth 
word of Running 
Address List 
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Number of 
subscripts 

one? 

7 

YES 


NO 


Number of subscripts 
to V of dummy "sub” 
instruction 



To Conn. (179A) 












Constant callword for 
multiplier to Dummy 
List in "u" of word 
with corresponding 
subscript_ 




To Conn. (186) 

Search Expanded 
List for redundancy/ 


Is dummy "sub” 
instruction in Dummy\ j^q 
L ist identical to 1—14 

previous entry in 
.Expanded List? 



YES 


All associated 
subscripts & multi¬ 
pliers identical 
also? 
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To Conn. (179) 

/Decrease address 
Operand List i/3) 
by one 


Single subscript to 
"v" of dummy instruc¬ 
tion 


Is dummy instruc-^\ 

'tion redundant? (i.e., A_ 

^equal to previous entry] * 
\/in Expanded List? 7 

To Conn, (186) 

/ Search ExpandedV 
' List for redundancyX 


Advance number of 
lines in running 
program by 2 


Set condition 
indicator 
to zero 


Delete Dummy List 
from Expanded List 
i.e. t set D -y 


To Conn. (175) 

/Redundant partial 
result to Operand 
List & Partial Re- 
V suit List. 


To Conn. (184) 

^Redundant partial 
result to "A” list 


■M 21 


To Conn. (198) 

/ New partial re- X 
/suit to Operand LisX 
/(/3) & Expanded List \ 
(y). Dummy List (D) to 

\ Expanded List. Con-/ 
dition indicator to/ 
\ Expanded List / 


Set Incre¬ 
ment (I) to 


Subscripted variable 

callword (77- f 

76-or 75-) 

To Operand List (/3) 


Q 

n n.j ( .1 


To Conn,j (180) 

/Advance address X 
in Operand List (fiy 
by one , 
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Callword of modulus in pseudo 
operation input region 

(63-) to "u" of dummy 

. ."sub 1 * instruction _, 

_l___ ft 

^Symbol = subscriptedX yes Number of subscripts from 
dummy variable for —» 3rd octal digit of callword 

sub-program? (i.e. f J to index counter (C^). 

V76-callword) 


"Number of sub- \ 
scripts equal one?] 


Number of subscripts 
to "v" of dummy 
"sub" instruction 


'All subscripts but 
one transferred to 
v Dummy List? 


NO 

To Conn. w (l88) 
Advance (D) to 
next address in 
Dummy List 


Decrease address in 
Operand List (/3) by 
number of subscripts 


Callword of multiplier in 
pseudo operation input 

region (63-) to Dummy 

List in "u" of word with 
corresponding subscript 


n 

_ Box-21 _ 

/Subscript from OperandX 
.List to Dummy List in / 


To Conn. (179A) 

Check for $ beyond 
lower limit 


In box 2, preset 
operand List address 
(£) of 1st subscript 
for variable 


Decrease 
index (C^ 
by one 


Advance box 2 to address 
in Operand List of next 
subscript for variable 
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To Conn. (188) 

f Advance (D) to 
next address in 
\ Dummy List 


Last subscript from 
Operand List to 
Dummy List in ”v” 
with no multiplier 


Symbol assumed dum~\ 
my subscripted vari¬ 
able for function 
i.e. 75-callword 


Equation Redundancy Check (Library Routine Operator) 


'Callword of modulus in 
function input region 

(62-) to "u" of 

dummy ”sub” instruction 


|Permanent library ] 
”Gen Pow” callword 
(50012) to working i 
temporary three 


Permanent library 
"Var Exp” callword 
(50022) to working 
temporary three 


Set Tjjp & Tppiji to one 
Set t rc & t rct t0 zero 

Dummy ’’Library” instruc¬ 
tion to temporary five 


Library routine call- 

word (4-50012, or 

50022) from temporary 3 
to ”v” of dummy 
instruction 


Dummy library in¬ 
struction with call- 
word from temporary 

five to Dummy List 
-- 

To Conn. (188) 


/Advance (D) to \ 
next address in ) 
\ Dummy List / 


Number of arguments 
for library routine 
from callword to 
index counters 
Ci & C2_ 



To Conn. (179) 
^/Decrease address \ 
.in Operand List (/3^ 
\ by one / 


r All arguments 
transferred to 
V Dummy List? 


Argument from 
Operand List 
to "u” of 
temporary 5. 

- * - -> 

/ Is this sub- 

(scripted argu- 

V ment? . 


YES 
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Equation Redundancy Check (Library Routine Operator) 





Advance op. code of 
argument word (tem¬ 
porary 5) by four to 

indicate 77- type 

subscripted argument. 


To conn. (188) 


Advance 

Advance 

Advance 

one. 

T Rp by 3. 
T rc by one. 

Trct by 

■ 

■ 


/Advance (D) to \ 

/next address in \ 

Dummy List ) * 

Argument word to 
next address in 
Dummy List 










To Conn. (186) 

/Search Expanded 
'List for redun- 
\dancy. 


is Dummy ’’Library” in~\ /All argument words \ 

struction in Dummy List \ YES /associa ted with these 
identical to previous J gentries identical also' 
entry in Expanded J 'v J 

V List? - 1 -^ 


NOj 38 s 


Add Dummy List 
to Expanded 
List (set y 
= D) 


Delete Dummy List 
from Expanded List 
(set D = y ) 

«=— 

Advance N R p by T R p 
Advance Crc by Trc 
Advance C RpT by TRPT 
Advance C RCT by Trqt 




@* —-*(S3) 
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To conn. (182) 




To conn. (178) 

Enter library rou¬ 
tine call word in 
Op. File I 



To conn. (203) 

Enter library rou¬ 
tine call word in 
List 1. 





ubscript symbol = partia 
result counter? i.e. tf 
Subscript in “A 1 * Register 


NO 



Advance op. code of argument 
word (temporary 5) by one to 
indicate subscript for ar¬ 
gument in "A" register. 











Equation Redundancy Check (Power Operators) 



©-* 


0 - 


Dummy M Pow-3" 
instruction to 
temporary 5. 


Dummy "Pow-2” 
instruction to 
temporary 5. 


Dummy lM Pow-l/2" 
instruction to 
temporary 5. 



To conn. (17 8) 

Store square 
root call word 
in Op. File I 
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To conn. (57) 

Check for re¬ 
dundancy (IR- 
IR15) 


To conn. (57) 
-> 

Check for re¬ 
dundancy (IR - 
IR15) 


To conn. (57) 
- s 

Check for re¬ 
dundancy (IR - 
IR15) 




To conn. (20 3) 

Store square 
root call word 
in List 1. 



Is operand ^ YES I 
subsripted? ) ^ 


Advance Npp 
by 5. 



Is operand ^ yES 
subscripted? ' 


Advance N Rp 
by 4 



Is operand 
subscripted? 


Advance Npp 
by 4 





NO 

Advance Npp 


by 2. 


I-*® 







NO 

Advance Npp 
by 1 

.—3 






NO 

Advance Npp 


by 2 




-0 



To conn. (178) 

t ' -— 

Store square 
root call word 
in Op. File I 



To conn. (203) 

f --- 

Store square 
root call word 
in List 1 


















1246 


Equation Redundancy Check (Integral Power Operator) 


To conn. (57) 
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Equation Redundancy Check (Integral Power Operator) 
Subroutine To Check for Redundancy of Integral Power Operator 


Dummy instruction 
with operands to 
"A” and temporary 5 


Set switch 


Is there ' 
a subscript? 



YES Subscript to "v" of 
* dummy instruction in 
temporary 5. _ 


_ 5 , Zero to "v" of dummy 

instruction in 
temporary 5. 


To. Conn. (141A) 
Check variables and 
set switch (h) 


To Conn. (186) 

’ ' " i 

Search Expanded List 
for redundancy 




s Is dummy "POW" 
instruction in Dummy 
List identical to pre¬ 
vious entry in Ex- 
V panded List? y 


( S '- 0 

•© 


To Conn. (188) 

Advance (D) to next\ 
address in Dummy List; 


Dummy "POW" instruction 
in temporary 5 to 
Expanded List 


Subscript 
indicator to 
"Q" register 






1249 




Is operand in "u" 
-=>( of dummy instruction 
77 -type? 


NO 


X 

61 


Set condition indi¬ 
cator to 10 q in op. 

code to indicate 

75 -or 76-type 

operand 



Is subscript symbol 
in "v" of dummy in- » 

struction = partial result ' 
counter? (i.e. t subscript 
in "A” register?) 


YES 




Advance 

N by one 
rp J 


Advance 
N rp by 

Increment (I) 




Set condition indi- 


cator 4 in op. code 

)-* 

to indicate 77- 


type operand 



Is subscript symbol in 
v” of dummy instruction 
partial result counter? 
(i.e. subscript in "A" 
register?) _ 



Advance N 
by rp 

Increment (I) 


YES 
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Advance op. code of 
condition indicator by 
one to indicate sub¬ 
script in "A" register 


To Conn. (185) 

Enter partial result) 1 
in "A" list 


>->^ 63 ^-> 


Set 

Increment(I) 
to one 


To Conn. (196) 

Current partial re¬ 
sult to*Operand List 
and Expanded List 


Condition indicator 
to op. code of partial 
result word in 
Expanded List 



Is operator 
negative power? 


NO 


69 


YES 



64 



Advance 
N Rp by one 


(CW) store floating 
jpoint one in constant 
_ pool _ 


Callword of constant 
to "u" of partial re¬ 
sult word in Expanded 
Li st 




' Is operand symbol in ,r u" > 
of dummy instruction = 
partial result counter? (i.e. 

^operand in "Q" register?)^ 
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Set op. code of condi¬ 
tion indicator to zero 
to indicate non-sub- 
scripted operand not 
in "Q" register 


To Conn. (192) 


Check for 61-—type 
operand in "u" 


Advance 
N r p by 

Increment (1), 



Set op. code of condi¬ 
tion indicator- to one 
to indicate non-sub- 
scripted operand in 
"Q" register 


To Conn. (182) 


Enter partial re¬ 
sult in "Q" list 



Advance 

N by 
rp J 

Increment (I) 


Set op. code of condi¬ 
tion indicator to zero 
to indicate non-sub- 
scripted operand not 
in ”Q" register. 


f Is non-subscr ipted 
operand in "u" of dummy\ YES 
instruction 61-type ) 


Advance op. code of 
condition indicator 
by 330 to indicate 
61 -type operand 


Advance 

N by two 
rp J 
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71 





Equation Redundancy Check (Floating Point Divide and Subtract Operators) 


Dummy "floating point 
divide" instruction to 
temporary 5. 


To Conn.(141) _ 

Check variables and 
set switch (H) 





/^Operand symbol in "v" 
of dummy instruction = 
partial result counter? 
(i.e., operand in "Q" 
register?) 

^ r ' 


l^r 


NO /Is there a ^\YES 

Set switch 


“(subscript word?) " J 

(M)—> ® 

- 


To Conn. (167) 
''Check for redundancy 
of dummy instruction 





To Conn. (170) 

> - > 

Check for redundancy 

of dummy instruction 


Operand symbol in "\ 
of dummy instruction = 
partial result counter? (i.e.\ 
operand in "Q" register?) 


Advance 
*| N rp by 
Increment (I) 
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Dummy "floating point 
subtract" instruction 
to temporary 5 


Set switch 

mV>@ 


To Conn, (141) 
'Check variables and 


set switch 


H 





YES 


Operand symbol in 
of dummy instruction = 
partial result counter? 
(i.e., operand in "Q" regis¬ 
ter?) y 



No 


Is there a 
subscript 
word? 



Set switch 

v 

/ > 

t 

® 



To Conn. (167) 

Check for redundancyN 
of dummy instruction 



To Conn. (170) 

Check for redundanc; 
of dummy instruction 


Operand symbol in "v"^\ 
of dummy instruction = \ 

partial result counter? !_ 
(i.e. f operand in "Q" J 

register?) J 


NO 


Advance N 
by rp 

Increment (I) 



■*(173 


YES 


Advance N. 
by one 


rp 


■*©■ 


Advance op. code of condition 
indicator to 16 q to indicate 
non-subscripted operands 
with operand for "v" in 
"Q” register. 


Set op. code of condition 
indicator to 4 to indicate 
operand for "v" in "0" 
register 













Dummy ’’floating plus” 
instruction to temporary 
3 



Dummy ’’floating multi¬ 
ply” instruction to 
temporary 3 


To Conn. (14 L) 


Sort variables and 
set switch ( 5 ) 


f Is there 
a subscript 
v word? 


Dummy instruction 
with operands to 
temporary 5 


T o Conn. (167) 
Check for redun¬ 
dancy of dummy in¬ 
struction 


/Partial result counters /^Partial result coun-\ 

= "u” of subcript word? \no/ ter = ”v” of subscript \ no 
(i.e.subscript for ”u" y^lword? (i.e. subscript fori 
\in ”A” register?) J in "A”' register?)/ 


Advance N 

rp 

by Increment 

(I) 


Set op. code of condi¬ 
tion indicator to zero 
to indicate neither sub¬ 
script in ”A” register 


Set switch 



Set switch 


Set op. code of condi¬ 
tion indicator to two 
to indicate subscript 
for ”v” in ”A” register 


To Conn. (185) 


Enter partial 
result in ”A” List 


d Multiplication 
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Set op. code of condi¬ 
tion indicator to one 
to indicate subscript 
for "u” in "A" register 


TO Conn. (188) 

^Advance (D) to nextN 
address in Dummy 


To Conn. (185) 
Enter partial re¬ 
sult in "A” List 


To Conn. (170) 

'Check for redundancy^ 
of dummy instruction 


Advance N 
by r P 

Increment(I) 


Equation Redundancy Check (Fixed Point Addition 
and Multiplication Operators 


To Conn. u (177) 

t -—- 

Sort fixed point 
operands 


To Conn (175) 
/Redundant partial \ 
^result to Operand List 
V & Red. partial Re- , 
\ suit List / 


Dummy "Fixed Point 
plus" instruction 
with operands to 
Dummy List_ 


Delete Dummy List 
from Expanded 
List (set D = y) 


To Conn.(186) 
Search Expanded 
List for redun¬ 
dancy 


_ * _._ 

Y es /"is Dummy "Fixed point' 
'HkT v / plus" instruction identi 

v s J^/ \cal to previous entry in 

Expanded List? _^ 


/Operand in "u" of 
dummy instruction = \ 

partial result counter? 

(i.e. "u" operand J 
V. in "A" register?)/ 


No Advance 

—* N by 2 
rp J 


To Conn. (198A) _ 

/ Partial result to Ex- \ 
panded List and Operand List' 
Condition indicator to / 
\ Expanded List. / 


Set increment 
(I) to zero 


84 
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Advance 

N by one 
rp 


To Conn. (199) 

/Partial result to \ 
”A” list, Expanded Lisl 
and Operand List, 
y Condition indicator 
\to Expanded List / 


Set increment 
(I) to zero 


To Conn.(108) 

Advance (D) to next 
address in Dummy List 


To Conn. (177) 

Sort fixed point 
operands 


Dummy ’’fixed point 
multiply” instruction 
with operands to 
Dummy List 

To Conn. (186) 

/ Search Expanded 
List for redundancy 


To Conn. (175) 
/Redundant partial \ 
/result to Operand LislN 
& Red. Partial Result 
\ List / 


jT Was partial re- 
f suit already in redun 
Idant Partial Result 
\ List? 


Is dummy ’’fixed point\ 
multiply” instruction \YES/g^ 
identical to previous J ^A^ 
entry in Expanded Listj/ 


Delete Dummy List from 
Expanded List. 

(set D = 7 ) 


To Conn. V (184) 

Advance N by 1 
rp J 

if partial result 
in ”A” List 
















/'Operand in ”u" of 
'dummy instruction = 
partial result counter? r~^ 
CCi.e.'V' operand in J 
\s"A M register) 


To Conn. (198A) 

- -^——-V 

Partial result to 
Expanded List and 
Operand List. Condi 
tion indicator to 
S. Expanded List / 


Advance N 

] 

by one 


Set Incre¬ 
ment (I) to 
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Equation Redundancy Check (Fixed Point Subtraction and Division Operators) 
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Conn. (198A) 



Partial result value 
to Expanded List and 
Operand List. Condition 
indicator to Expanded 
List 


Set 

llncrement (I) 
to zero 



©• 


Set op. code of condi¬ 
tion indicator to 2 to 
indicate operand for 
"A" register. 


in 



To Conn. (199A) 

Partial result value 
’A" list. Expanded 
List and Operand List. Condi-’ 
tion indicator to Expanded, 
Li st. 


Set 

Increment 
to zero 


(I) 



To Conn. (188) 
Advance (D) to next \ 
address in Dummy List, 


To Conn, (179) _ 

Decrease address in 
Operand List (/3) by 
s_one_ 


Get operand for 
from Operand 
List _ 


M "i 




& 


To Conn. (179) 
Decrease address in 
Operand List ($) by 
_one _ 


Get operand for 
"u" from Operand| 
List 


Dummy "Fixed point 
divide” instruction 
with operands to 
Dummy List. 




L 


To Conn, (186) _ 

Search Expanded List N 
for redundancy 


f Dummy "Fixed point 
J divide" instruction 
“H identical to previous 
V entry in Expanded List? 


YES 
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Equation Redundancy Check (Floating Point Unary Minus and Absolute Value Operators 


©■ 



Dummy "Floating point 


\ * 

unary minus in- 

J 

/ 

struction to tem- 



porary 5. 
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Subscript to "v" 
of dummy instruc¬ 
tion 


To Conn. (186) 

^Search Expanded List 
for redundancy 


f Is dummy instruc-'X 
tion identical to pre-\ 
vious entry in Expanded 
List? / 


f Is subscript symbol = par-^ 
NO / tial result counter? (i.e., 

" V subscript in "A" register?) 


Dummy instruc¬ 
tion to Expanded 
Li st 


To Conn.J^(188) 

r Advance ( 
address in 










1264 


To Conn. (175) 









Advance N by 
rp 

increment (I) 


To Conn. 
^Check for 
operand in 


(192) 

61-type^ 



Advance op. code of 
condition indicator to 
150 to indicate operand 
for "u" in "Q" register 


To Conn. (182) 

Enter partial re¬ 
sult in "Q" List 
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/^T\ Set switch 



lllAV 


|Set increment (I) 
to zero 


Set.switch 

(m) 



To Conn. (200) 

Partial result to 
Operand List & Ex- 
anded List. Condition, 
indicator to 
Expanded List. 


Equation Redundancy Check (Fixed Point Unary Minus and Absolute Value Operators) 





Dummy instruction with 
operand from Operand 
List in "u" to Dummy 
Li st 


To Conn. (179) 
/Decrease address in 
Operand List (/3) by 
\_one_ 



To Conn.i (188) 


Advance (D) to next \ 
address in Dummy List, 



115 


To Conn. (186) 

Search Expanded List 
for redundancy 



Is dummy instruction ^[0 
identical to previous ) * 
. entry in Expanded List y 



Is operand in "u" of 
dummy instruction = par 
tial result counter? 
Xi.e., operand in "A” 
register?) 
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Equation Redundancy Check (Storage Operator) 
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< Is operand in v 
of dummy instruction 
77-type? 



Is operand in *V 
of dummy instruction 
76-type? 



YES 



127 



YES 


Set condition indicator 
NO | to 12 q to indicate both 
operands non-subscriptedj 



Advance 
N r p by 2 



Operand in ”u" of 
dummy instruction = par¬ 
tial result counter? (i.e., 
operand in "Q" 
register?)_ 


YES 




To Conn. (191) 

Check for 61- 

type operand in 


©* 



Dummy "STORE 1 * instruc 
tion with operands to 
Expanded List 


Condition indicator to 
op. code of subscript 
word in temporary 6. 


To Conn. (188) 

Advance to next 
address in Expanded 
List_ 




12 r 
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To Conn. (188) 

/Advance (D) to next 
address in Expanded 
\_List_ 


To Conn. (185) 
Enter partial 
result in "A” 

List _ / 



Subscript word with 



condition indicator from 

mm 

) -* 

temporary 6 to Expanded 

m 


Li st 



To. Conn.(194) 

Check for 61- > 

type operand in 


— © 


h/23^. 


- 1 


To Conn.(182) 

Enter partial re¬ 
sult in "Q" List 


Advance condition by 3 
in op. code to indicate 
operand for "u" in "t) M 
"A” 


or 


register 
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Equation Redundancy Check (Storage Operator) 
To Conn. (179) 


(^L24^ 


/Decrease address in 
Operand List (@) by 
\_one_ 


"v" oper- 


Subscript for 
and from Operand List to 
"v" of subscript word 
in temporary 6. 


Set condition indicator 
to 11 q in op. code to 
indicate "u" operand 
non-subscripted and 

"v" operand 76 - 

type. 



Is subscript for "v" 
operand = partial re¬ 
sult counter? (i.e., 
subscript in "A" 
Register?) 



Advance 
NRP by 4. 


& 


No 
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Set condition indicator 
to 300 in op. code to 
indicate "u" operand 

77 type and 'V* 

|oper and 76- type I 


Advance 


N rp by 6 

■ 


Advance count of 
relative constants 
(C rc ) by one 


'IS subscript for "v" X 

operand = partial resultO^j^^' 
counter? (i.e.-subscript/ 

. in "A" Register? J 

^N0“ 


/'Ts subscript for \ 
"u" operand = partial > 
result counter? (i.e., 
v subscript in "A” J 
x. register?) y' 


To Conn. (179) 
/Decrease address in 
operand list (£) by 


r Is operand in "u" 
of dummy instruction 
V 77-type? 


Set condition indicator 
to 250 in op. code to 
indicate ’V operand 

75 -, 0 r 76-type and 

"v" operand 77—- type 


Advance 

N by 6 
rp J 


Set condition indicator 
to 170 in op. code to 
indicate "u” operand 

77- type and "v" 

operand 77-— type. 


Advance 

N by 5 
rp J 


Advance count of 

relative constants 

(C ) by one 
rc J 
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Equation Redundancy Check (Subroutine to Check Variables) 



141 


To Conn. (179) 

Decrease address in 
Operand List (fi) by 
one 



> 

t 

"v" operand from 
Operand List to *V' 
of temporary 1. 

' 

t _ 


" operand 
subscripted? 




r operand 
subscripted? 



Decrease address 
in Operand List (#) 
by one’ 


NO 




"u" operand from 
operand List to M u M 
of temporary 5. 

To Conn. 

s 

(179) 


Zero to "Q” register 
to indicate no sub- 
script word in 
temporary 6 
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To. Conn. (179) 

Decrease address in 
Operand List (/?) by 
one 


Subscript for "u" 
operand from Operand| 
List to V of 
temporary 6 


Set switch 

to indicate "u" operand 
subscripted and 'V' 
operand non-subscripted 




143 


To Conn. (179) 

Decrease address in 
Operand List (/3) by 
one 


V 


.. operand from 

Operand List to "u" 

of temporary 5. 
-- 


i" operand 
subscripted? 


NO 


YES 


_*_ 

Subscript for "v" 

X UUilli « | U 1 / J 

/ Decrease address in\ 

_X_ 

Set switch (H)— 

operand from Operand 

/ Operand List (/3) \ 

to indicate "u" operand 

List to ’V* of 

\ by one / 

non-subscripted and u v" 

temporary 6 

\ _/ 

operand subscripted 
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-© 
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To Conn. (179) 

Decrease address 
in Operand List (/3) 
by one 



Negative number to 
"Q" register to 
indicate "subscript 
word" in temporary 6J 



Subscript for "u" 


Set switch ®-> @) 


-^ 

t - 

operand from Operand 


to indicate both "u" 


V operand from 

List to "u" of 

mm 

and "v" operands 

f r\ i * i i - 

temporary 1 

to "v" of 

temporary 6* 

■ 

subscripted 


temporary 5 

• 


(VS) Subroutine To Sort Operands for Floating Point 
Addition or Multiplication 

To Conn, (179) 

Decrease address 
in Operand List (/3) 
by one 



_5 

r 

First operand from 
Operand List to "v” 
of "Q" register 

_3 

l _ 



Second operand from 
Operand List to "v" of 
"A" register _ 


Is first oper¬ 
and subscripted? 


YES 


NO 


To Conn. (179) 

Decrease address 
in Operand List (/3) 
by one 



Dummy instruction with 
operands from temporary 
5 to "A" register 


ymbol for first 
operand > symbol for 
second operand? 

I YES 


NO 
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First operand to "u" 
and second operand to 
V of temporary 5. 


/Is second oper-\ YE < 
and subscripted? )-- 


To Conn, (179) 

^Decrease address 
in Operand List (/3) 
by one 


Subscript for ”v” 
operand from Oper¬ 
and List to "v" 
of temporary 6. 


Set switch @ 

to indicate "u” operand 
non-subscripted and "v" 
operand subscripted 


Second operand to H u’ 
and first operand to 
V of temporary 5. 


Zero to "Q" register 
to indicate "no sub¬ 
script word” in tem¬ 
porary 6 


To Conn. (179) 

/Decrease address 
in Operand List ($) 
by one 


Subscript for first 
operand from Operand 
List to "v" of tem¬ 
porary 6* 


To Conn. (179) 

/Decrease address 
in Operand List (£) 
by one 


First operand to "u" 
and second operand to 
"v" of temporary 5. 


To Conn. (179) 

/ ----V 

' Decrease address 
in Operand List (/?) 
by one 


_x_ 

Second operand from 

Operand List to "v” of 
"A" register 


'""Symbol for first 
operand > symbol for 
Ss_second operand? 


Subscript for "u" 
operand from u v" of 
temporary 6 to ”u" of 
temporary 6. 
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To Conn. (179) 
Decrease address 
in Operand List (#) 
by one 


_5 

t _ 


"7 

r 

Subscript for "u" oper¬ 
and from Operand List 
to "u" of temporary 6* 


Set switch ®—» 
to indicate both 
and "v" operands 
subscripted 



-*^156) 


YES 



155 


Negative number to 
’’Q" register to indi¬ 
cate subscript word in 
temporary 6. 
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To Conn. (179) 

Decrease address 
in Operand List 03 )' 
by one 


First operand from 
Operand List to "A” 
register 


(OS) Subroutine to Sort Operands for pixed Point Addition and Multiplication 


Second operand from 

Symbol for secondN 


Second operand to "u" 

Operand List to ”0” 

_ J operand >symbol for 

and first operand to 

register 

-x- 

V^jfirst operand? ^ 

) 

"v" of "A” register 

- , - 



To Conn. 


(179) 


YES 


Decrease address 
in Operand List (/3) 
by one 


First operand to 
and second operand 
v" of "A" 
register_ 


"u" 


to 


(PN) Set Condition Indicator for Floating Point Operations 



Switch 



Is operand in "u 
of dummy instruction 
in temporary 5 
77-type? 


■Is operand in 'V 
of dummy instruction 
in temporary 5 
77 -type? 


YES 

5 ^ 



YES 


Set condition indicator 
to 22o in op. code to 
indicate M u" and "v" 

operands 75- or 

76-type _ 


Advance 
N rp by six 


Set condition indicator 
to 25 q in op. code to 
indicate "u" operand 

75 - or 76-type 

and ' 
type 


and "v” operand 77- 


[Advance count of rela¬ 
tive constants (C r c) by 
one 



*(aH N 


Advance 
i r p by six 


Advance 
N by five 










Set condition indicator 
to 17 q in op. code to 
indicate both "u" and 
V operands 77-— type 


Set condition indicator 
to 30 q in op. code to 
indicate "u" operand 

77- type and 'V* 

operand 75- or 

76-type. 


Advance count of rela¬ 
tive constants (C rc ) 
by one 


"Is operand in "v" 
of dummy instruction 
in temporary 5 
77 -type? 


Set condition indicator 
to Us in op. code to 
indicate "u” operand 
non-subscripted and "v" 
operand 75- or 


Set condition indicator 
to 5 in op. code to 
indicate "u” operand 
non-subscripted and 
”v” operand 77— type 



Advance 

N „ by 3, 
rp J 
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(RR) Subroutine To Check for Redundant Floating Point Binary Operation 


To Conn. v (186) 

Search Expanded LisX 
for redundancy 


To Conn. &188) 

/Advance to next 
address in Expanded 


^Is dummy instructions 
identical to previous ] N( 
entry in Expanded j 
v List? J 


-X_ 

Subscript word from 
temporary 6 to 
Expanded List 


f Is subscript word 
also identical to corre A YES 
ysponding subscript wordy 
in Expanded List? 


Set switch 


Set switch 


To Conn. J/188) 

/Advance to next 
address in Expanded 
\ List 


/is operand in "u” 
of dummy instruction = 
partial result counter? 
V (i.e., "u" operand J 
"Q" register?! 


Dummy instruction from 
temporary 5 to 
Expanded List. 


Set condition indicator 
to 3 in op. code to 
indicate operand for ’V 
in "Q" register_ 
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To Conn.,, (186) 
— 

Search Expanded 

List for redundancy 


Set switch 
®— © 


Is dummy instruction > 
identical to previous 
entry in Expanded List^ 

NO 

To Conn.,.( 188 ) 


Advance to next \ 
address in Expanded \ 
List / 



Set condition indicator 
to 12 q in op. code to 
indicate both ”u" and 
'V* operands non-subscripted 


/is operand in "u” of\ 
dummy instruction = 
partial result counter?] 
(i.e. "u” operand / 
Vin "Q" register?) 


Advance condition indi¬ 
cator by 3 in op. code 
to 15jj indicate operand 
for "u" in ”Q” register 


To Conn.A (194) 


Check for 61— type 
operand in w v” 


To Conn.l (191) 


' Check for 61 — type^ 
operand in ”u” or”v” 
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To Conn. (182) 

'Enter partial result 
in "Q” List 


To Conn. (175) 

/Redundant partial\ 
Result to Operand List 
V and Redundant Partial 
\ Result List / 


Set 

Increment (I) 
to one 


Was redundant partial 
result already in 
Redundant Partial Re- 
V suit List? ^ 


To Conn. (200) 

/Partial result to \ 
Operand List and Ex- ' 
panded List, Condition 
indicator to Expand- , 
\ ed List ___/ 

To Conn. (181) 
/Check for redundant \ 
partial result in "Q” 

\ List / 


(RS) Subroutine to Store Redundant Partial Result in Operand List and Redundant Partial Result List, 


Get address of redun¬ 
dant partial result in 
Expanded List from 
"A” register 


Get next available ad¬ 
dress in Operand List 
from first word in Run- 
ning Address List_ 


'is redundant partiar 
result in Redundant 
Partial Result List? 


Store redundant 
partial result in 
Operand List. 

To Conn.^(180) 

/Advance address in 
/Operand List (£) 

\ by one 
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(FS) Subroutine To Store Callword in Op. File 1 Item 
Input-Callword in " " of "A" Register 
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(BR) Subroutine to Advance or Decrease Available Address in Operand List ( Beta Routine) 










(LQ) Subroutine To Search for or Store Partial Result Symbol in ”0” List 
Input—Redundant Partial Result in "A" Register for Search 







Search entrance if \ 
floating point unary 
minus or absolute value 


Is redundant partial 
result in "A" register 
in "Q" List? . 


YES\ EXIT 









(LA) Subroutine To Search for or Store Partial Result Symbol in "A" List 
Input-Redundant Partial Result in "A" Register for Search 
Entrance to Search 


f Is redundant partialN 

result in "A" register )- 

. in "A" List? J 


^ls redundant partialX 
result = current partialy^, 
result(partial result J 
v counter)? y 


Advance N 


by one 




Is "A*' List too 
long? 













(ES) Subroutine To Search for Dummy Instruction or Advance Dummy Tally in Expanded List 

Input-Dummy Instruction in "A" Register 


Entrance to 
search 



< ^Is dummy instruction 

in "A" register identi-Y^M 
cal to previous entry in ” 
^Expanded List? 


Address of word follow¬ 
ing identical entry in 
Expanded List to "u" 
of "A” register_ 



NO 





Set "A" register negative 
to indicate dummy instruc¬ 
tion not identical to 
previous entry in Ex¬ 
panded List. 



Entrance to advance 
tally (D) 


Advance Expanded List 
dummy tally (D) in 
sixth word of Running 
Address List by one 
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(DS) Subroutine to Search Dimension List 
(Input-Callword in "A” Register) 



(PR) Subroutine to Decrease and Check Partial Result Counter 
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(EK) Subroutine to Check for 61 -Type Operands in Dummy Instruction 
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(PP) Subroutine to enter Current Partial Result Symbol in Expanded List and Operand List 


To Conn. (188) 

/Advance dummy tally'N 
/(D) to next address to 
\ count partial result 
\ symbol / 


Set address of last 
entry in Expanded List 
(X) = dummy tally (D) 
to add Dummy List and 
new partial result symbol 
to Expanded List _ 

Enter new partial 
result symbol in <=- 

Operand List 


To Conn (190) 

/ Obtain new partial 
result symbol 


Obtain available ad¬ 
dress in Operand List 
from first word in 
Running Address List 


Obtain address in Ex¬ 
panded List (/) for new 
partial result from 
fifth word in Running 
Address List 


Enter partial result 
symbol in Expanded 
Li st 


To Conn. (180) 

Advance address in 
Operand List (/3) by 
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Subroutine to Store Partial Result Symbol for "Sub" Operation in Expanded List and Operand List 


/is last subscript for \mq 
dummy "sub" instruction ]— 
= partial result counter?] 
s^Ci.e. subscript in "A”?/ 


Advance N 

i 

by one 


Advance N by 
rp J 

Increment (I) 


Set condition indicator 
to one in op. code to 
indicate subscript in 
"A” register 


' Enter partial 
result in "A” List 


Set address of last entry 
in Expanded List (/) = 
dummy tally (D) to add 
Dummy List and new par¬ 
tial result symbol to 
Expanded List. 


To. Conn.4(l90) 


Obtain new partial 
result symbol 


To Conn. (188) 


/ Advance dummy tally\ 
(D) to next address to 
v count partial result/ 
\ symbol / 
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(LS) Subroutine to Store in List 1, Callword of Library 
Routine and, if Fixed Library Routine, Callwords 
of its Cross-References 



Preset address in box-3| 
to initial address in 
list of fixed library 
callwords (see below) 


Set index 
Cg to zero 


of "A" = 50012? 


NO 


"A" = 50022? 


NO 


Is callword in "u" 
of "A” equal to 50031, 
50041, or 50051? 


YES 


(LR) callword 
from "A" to list 1 



List of Fixed Library Callwords 
(Only those pertinent to this phase) 


00 

1 

1 

50002 

i 00000 


\ 

f 

00 

1 

1 

50022 

l 00000 

\ Exit / 


Advance address 

in 


1 


1 

\ 

/ 


Box-3 by one 


00 

1 

50031 

I 00000 

\ 

( 





00 

1 

1 

50041 

1 00000 


YES 

\ 

i 

00 

1 

1 

50051 

1 00000 

Is index 

C 3 V_ 

Decrease index 

C 3 


1 



v negatives' r 

by one 



00 

JL 

50012 

! 00000 


V 





NO 



Advance index C. 


by three 



Box-3 


Callword from address 

[-] j n ji st 0 f 

fixed library callwords 
to "A" 



(LR) callword from 
"A" to list 1 
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Equation No. 2 (Redundancy Check) Coding 


Regional Assignments for Equation Redundancy Check Phase 




Region and 




Address 

Name or Description 

General Subroutines 

RE 

UP421 

Uniprint Routine 

(not part of this 

RE 

EP537 

Alarm Routine 

phase) 

RE 

BQ632 

Rewind Tapes Routine 

I 

nc. 

WAODO 

Type Alarm Heading 

1 

RE 

CW1211 

Constant Callword Routine 

V 

RE 

LR1465 

Build List 1 Routine 

Input from Transla¬ 
tion 

RE 

SL2242 

Sorted List 

Program 

RE 

BB2512 

Setup Redundancy Check Phase (Start) 


RE 

SS2544 

Check Symbol from Sorted List 


RE 

ER2614 

End Redundancy Check Phase 


RE 

S02633 

Subscript Operator (77_type callword) 


RE 

SP2715 

Subscript Operator (continued) 


RE 

SQ2757 

Subscript Operator (continued) 


RE 

ST3010 

Subscript Operator (76__.or 75___type call- 
word) 


RE 

LJ3064 

Library Operator 


RE 

LK3111 

Library Operator (continued) 


RE 

LL3133 

Library Operator (continued) 


RE 

LM3161 

Library Operator (continued) 


RE 

LN3210 

Library Operator (continued) 


RE 

IP3236 

Power Operators (3), (-3), (2), (-2), (%•), (■%) 


RE 

IQ3300 

Power Operators (-1),(4to63),(-4 to -63) 


RE 

IR3335 

Power Operators (continued) 


RE 

IS3375 

Power Operators (continued) 


RE 

FD3454 

Floating Point Divide and Subtract Oper- 




ators 


RE 

FP3513 

Floating Point Plus and Multiply Opera¬ 
tors 


RE 

P03544 

Fixed Point Plus Operator 


RE 

M03570 

Fixed Point Multiply Operator 


RE 

N03617 

Fixed Point Subtract Operator 


RE 

D03651 

Fixed Point Divide Operator 


RE 

FN3700 

Floating Point Unary Minus and Absolute 
Value Operators 


RE 

NF4014 

Fixed Point Unary Minus and Absolute 

Value Operators 


RE 

NE4041 

Fixed Point Unary Minus and Abs. Val. 




(continued) 


RE 

EE4051 

Storage Operator (space-period) 
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Subroutines 


Constants 


Subroutine 


RE 

RE 

RE 

EF4110 

EG4152 

EH4206 

Storage Operator (continued) 

Storage Operator (continued) 

Storage Operator (continued) 

RE 

VC4246 

Subroutine to Check Variables 

RE 

VS4317 

Subroutine to Sort Operands for Floating 
Plus or Multiply 

RE 

PN4404 

Set Condition Indicator for Floating 

Point Operations 

RE 

RR4502 

Subroutine to Check for Redundant Float¬ 
ing Point Binary Operation 

RE 

RS4562 

Subroutine to Store Redundant Partial 
Result Symbol in Operand List and Redun¬ 
dant Partial Result List 

RE 

0S4610 

Subroutine to Sort Operands for Fixed 

Plus or Multiply 

RE 

FS4624 

Subroutine to Store Callword in Op. File 

1 

Subroutine to Advance or Decrease Add¬ 
ress /3 in Operand List (Beta Routine) 

RE 

BR4642 

RE 

LQ4654 

Subroutine to Search for or Store Partial 
Result Symbol in "Q" List 

RE 

LA4703 

Subroutine to Search for or Store Partial 
Result Symbol in "A" List 

RE 

ES4726 

Subroutine to Search for Dummy Instruct¬ 
ion or Advance Dummy Tally in Expanded 
List 

RE 

DS4746 

Subroutine to Search Dimension List 

RE 

PR4755 

Subroutine to Decrease and Check Partial 
Result Counter 

RE 

EK4764 

Subroutine to Check for 61_Type Oper¬ 

ands in Dummy Instruction 

RE 

PP5012 

Subroutine to Enter Current Partial Re¬ 
sult Symbol in Expanded List and Operand 
List 

RE 

SR5023 

Subroutine to Store Partial Result Sym¬ 
bol for Subscript Operation in Expanded 
List and Operand List 

RE 

FC5051 

Fixed Constants 

RE 

RC5174 

Relative Constants 

RE 

T05227 

Alarm Text 

RE 

IA5233 

Initial Addresses of Lists 

RE 

LV5245 

Limiting Addresses for Lists etc. 

RE 

LS5257 

Subroutine to Store in List 1, Callword 
of Library Routine and If Fixed Library 
Routine, Callwords of Cross-References 

i 
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Temporaries 

RE 

RE 

WT5306 

CT5315 

Working Temporaries 

Counters 

Lists 

RE 

RA5550 

Running (current) Addresses in Lists 


RE 

XQ5561 

"Q" List 


RE 

XA5761 

"A" List 


RE 

RL6161 

Redundant Partial Result List 


RE 

EL6261 

Expanded List 


RE 

FL7161 

Op. File 1 Item 


RE 

BL7361 

Operand List 

Permanent List 

RE 

DL40102 

Dimension List 
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Equation Redundancy Check Phase 


Start 



IA 

BB 

[30000] 

Setup Redundancy Check Phase 

0 

MJ 

0 

Exit-Redundancy Phase 

1 

TP 

IA 

RA 

Preset Running Add. in Operand List 

2 

TP 

IA1 

RA1 

Preset Running Add. in Op. File 1 item 

3 

TP 

IA2 

RA2 

Preset Running Add. in ”Q" List 

4 

TP 

IA3 

RA3 

Preset Running Add. in "A” List 

5 

TP 

IA4 

RA4 

Preset Running Add. in Expanded List 

6 

TP 

IA4 

RA5 

Preset Dummy Tally for Expanded List 

7 

TP 

IA5 

RA6 

Preset Partial Result counter 

10 

TP 

IA6 

RA7 

Preset Running Tally #lines in Running 
prog. +1000 

11 

TP 

IA7 

RA10 

Preset Running Add. in Red. P.R. List 

12 

TU 

IA10 

SS3 

Preset Running Add. in Sorted List- 
Initial Add. 

13 

TP 

SL1 

ELI 

Line Number to 2nd Word of Expanded List 

14 

SP 

SL3 

17 

Callword to ”u" of A 

15 

TP 

A 

EL 

Callword to "u" of 1st word in Exp. List 

16 

AT 

FC23 

FL 

Callword to 1st line Op. File 1 item 

17 

TP 

FC 

FL1 

Zeroize 2nd line Op. File 1 Item 

20 

TU 

6 

DS1 

jn from f^ to "u” of RP to search Dim. 
List 

21 

TP 

FC 

CT7 

Preset increment (I) to Zero 

22 

TP 

FC 

CT 

Preset Crc to Zero 

23 

TP 

FC 

CT1 

Preset Crpt to Zero 

24 

TP 

FC 

CT2 

Preset Crct to Zero 

25 

TP 

FC 

m 

Zeroize Temp 0 

26 

TP 

FC 

WT1 

Zeroize Temp 1 

27 

TP 

FC 

CT11 

Zeroize index Counter (Cj) 

30 

TP 

FC 

CT12 

Zeroize index Counter (C 2 ) 

31 

MJ 

0 

SS 


CA 

BB32 
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IA 

ss 


Check Symbol from Sorted List 

0 

TP 

FC 

CT10 

Zeroize condition Indicator 

1 

TP 

FC32 

Q 

Mask for "v" to ”Q” 

2 

RA 

SS3 

FC2 

Adv. add. in Sorted List—Add. next sym¬ 
bol 

3 

QT 

C 300003 

A 

Symbol from Sorted List — "v” of "A" 

4 

TP 

A 

WT3 

Symbol — "v" of WT3 

5 

TJ 

FC112 

SS11 

50000> Symbol? (Is this operation Symbol?' 

KJ 

HPT 

XO 

A Q 

1’ 0*10 

r t o 

L*J O 

61000> Symbol? (Is this Library Symbol?) 

7 

TJ 

FC61 

SQ14 

75000> Symbol? (Is this Non-sub Var. or 
Const. Sym?) 

10 

MJ 

0 

SO 

Subscripted Variable Symbol (77_,76_, 

or 75_) 

11 

LQ 

A 

17 

Symbol— "u" of Q 

12 

QT 

FC114 

A 

Mask rightmost 4 octal digits to "u" of 

A 

Form MJ OCsymbol! 00000 

13 

AT 

FC113 

A 

14 

RP 

30031 

SS47 

Search List for Operation Symbol 

15 

TJ 

SS16 

SS16 

Jump according to symbol 

16 

MJ 

12 

FN2 

Floating Point Absolute Value 

17 

MJ 

13 

NF2 

Fixed Point Absolute Value 

20 

MJ 

20 

FP 

Floating Point Plus 

21 

MJ 

21 

PO 

Fixed Point Plus 

22 

MJ 

30 

FD7 

Floating Point Subtract 

23 

MJ 

31 

NO 

Fixed Point Subtract 

24 

MJ 

32 

FN 

Floating Point Unary Minus 

25 

MJ 

33 

NF 

Fixed Point Unary Minus 

26 

MJ 

50 

S3 

= 

27 

MJ 

52 

SS 

By 

30 

MJ 

60 

FP2 

Floating Point Multiply 

31 

MJ 

61 

MO 

Fixed Point Multiply 

32 

MJ 

70 

FD 

Floating Point Divide 

33 

MJ 

71 

DO 

Fixed Point Divide 

34 

MJ 

100 

U 

General "POWER” 

35 

MJ 

101 

U2 

| POW|> 63 or | Non-integral POW|< 63 
(superscript cases only) 

36 

MJ 

120 

EE 

Storage Operater (space-period) 

37 

MJ 

3077 

IQ14 

Integral Power ( 4 to 63 ) 

40 

MJ 

3177 

IQ16 

Integral Power (-4 to -63) 

41 

MJ 

4000 

IP 

Integral Power (3) 

42 

MJ 

4100 

IP2 

Integral Power (-3) 

43 

MJ 

5000 

IP11 

Integral Power (2) 

44 

MJ 

5100 

IP13 

Integral Power (-2) 

45 

MJ 

6000 

IP22 

Power C/4) 

46 

MJ 

6100 

IP24 

Power (-%) 

47 

MJ 

CA 

7100 

SS50 

IQ 

Integral Power (-1) 
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0 

IA 

TP 

ER 

RA7 

A 

End Redundancy Phase 

Initial Relative constant Running Add¬ 

1 

TJ 

LV7 

ER6 

ress to "A" 

Number Lines in object program body< 

2 

RJ 

WA 

WA1 

1001 8 ? 

No; Type sentence Number 

3 

TP 

TO 

UP3 

Codeword to Alarm Print 

4 

RJ 

UP2 

UP 

Alarm; SENTENCE_TOO LONG. 

5 

MJ 

0 

BQ6 

Rewind Tapes and Stop 

6 

RS 

RA2 

IA2 

^Entries "Q" List to "u" and "v" of "A" 

7 

AT 

FC110 

RA 

jn for "Q" List Search to Generation In¬ 

10 

RS 

RA3 

IA3 

put 

^Entries "A” List to "u" and "v” of "A” 

11 

AT 

FC110 

RA1 

jn for "A" List Search to Generation In¬ 

12 

RS 

RA10 

TA7 

put 

^Redundancy Temps to "u" and "v" of "A" 

13 

AT 

FC110 

RA2 

jn for Redundant Partial Result Search 

14 

TP 

FC107 

RA3 

to Gen. Inp. 

Initial Relative Running Address to Gen. 

15 

TP 

IA11 

RA10 

Input 

Initial Address in Expanded List +2 to 

16 

MJ 

0 

BB 

Generation Input 


CA 

ER17 
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n 

V 

IA 

TP 

SO 

A 


WT 1 

Subscript Operator (77_ callword) 

7_ symbol to "v" of working Temp *1 

1 

RJ 

ES 


ES12 

Advance "D" to available dummy inst. 

2 

TV 

A 


WT4 

address 

Address of dummy inst. to "v" of Temp 4 

3 

TV 

A 


S04 

Address for dummy inst. to "v" of NI 

4 

TP 

RC1 


[30000 ] 

Dummy "sub" instruction to Dummy List 

5 

TP 

WT3 


A 

(D) 

( _type symbol to "A" 

6 

TJ 

FC53 


ST 

Symbol 77___ ? (i.e. 77000> A) 

7 

RJ 

FS 


FS1 

Yes, store symbol in Op. File 1. 

10 

TP 

WT3 


A 

77_type symbol to "A" 

11 

RJ 

DS 


DS1 

Search Dimension List for symbol (Add- 

12 

TU 

A 


SOI 3 

ress of next word in "u" of A) 

Address of modulus to "u" of next inst. 

13 

TU 

[30000 

] 

WT 

Modulus to "u" of Temp 0 

14 

SP 

WT 


71 

Modulus to "v" of kg 

15 

RJ 

CW 


CW1 

Store modulus in constant pool (callword 

16 

TV 

S04 


SOI 7 

in "u" of A) 

Address of Dummy inst. in Dummy List (D) 

17 

TU 

A 


t30000] 

to "v" of NI 

Callword of Modulus to "u" of Dummy in- 

20 

TU 

SOI 3 


S021 

struction 

Address of # S.S. to "u" of NI 

21 

TV 

[30000 

J 

CT11 

# of subscripts to index counter C, 

22 

TP 

FC1 


A 

1 in "v" to "A" 

23 

EJ 

CT11 


SQ 

# Subscripts = one? 

24 

TV 

S04 


S025 

Address of dummy instruction to "v" of 

25 

TV 

CT11 


[30000] 

NI 

# Subscripts to "v" of dummy instruction 

26 

SP 

CT11 


17 

^Subscripts to "u" of "A" 

27 

AT 

CT11 


Q 

^Subscripts to "u" and "v" of Q 

30 

RS 

RA 


Q 

Decrease add. in Operand List (&) by 

31 

RJ 

BR 


BR2 

#S.S. in "u" and "v" 

Has £ decreased beyond lower limit. 

32 

TU 

A 


S040 

Address of first s.s. to "u" of TP 

33 

TV 

RC31 


S042 

Preset switch for multiplier in "v" 

34 

TU 

SOI 3 


S046 

Preset address of multiplier 

35 

RS 

CT11 


FC1 

Decrease index counter by 1 in "v" 

36 

RJ 

ES 


ES12 

Advance D to next address in Dummy List 

37 

TV 

A 


S040 

Address for subscript in Dummy List to 

40 

TP 

[30000 ] 

[30000] 

"v" of NI 

Subscript from Operand List to Dummy 

41 

RA 

S040 


FC2 

List in "v" 

Advance address to next s.s. in Operand 

42 

U 

CT11 


[30000] 

Li st 

All subscripts transferred to Dummy List? 

43 

MJ 

0 


SP 

Yes 
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44 

TV 

RC32 

S042 

Preset switch for multiplier in "u" 

45 

RA 

S046 

FC2 

Advance ”u M of NT by one (Add. of Mult. 

46 

TV 

[30000] 

WT1 

Multiplier to "v" of working Temp. 

47 

TP 

WT1 

A 

Multiplier to "v" of A 

50 

RJ 

CW 

CW1 

Store multiplier in constant pool (call 
word in ”u” of A) 

51 

TV 

S040 

S052 

Address of subscript in Dummy List to 
"v" of NT 

52 

TO 

A 

[30000] 

Multiplier to Dummy List with Corres. 
Subscript 

53 

MJ 

0 

SO 36 


54 

TO 

S046 

S055 

Address of Multiplier in Dim. List to 
"u" of NI 

55 

TO 

[30000] 

WT 

Multiplier to "u" of Working Temp. 

56 

SP 

WT 

25 

Multiplier to "v" of A1 

57 

LT 

0 

A 

Multiplier to "v" of Ar 

60 

TV 

RC31 

S042 

Preset switch for multiplier in ”v M 

61 

MJ 

0 

S050 


CA 

S062 
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r\ 

w 

IA 

SP 

SP 

cr> A 

OKJ** 

17 

Subscript Operator (continued) 

Address of Dummy Inst, to "u” of A 

1 

TO 

A 

SP2 

Address of Dummy Inst, to "u" of NI 

2 

TP 

[30000] 

A 

Dummy inst to A 

3 

TV 

A 

CT11 

^Subscripts to index counter Cl 

4 

TV 

A 

CT12 

^Subscripts to index counter C 2 

5 

RJ 

ES 

ESI 

Search Expanded List for Redundancy 

6 

SJ 

SP22 

SP7 

Is dummy inst. redundant? yes to SP7 

7 

TP 

FC35 

Q 

Mask for ”u M and "v si to "Q" 

10 

SS 

FC2 

0 

Add. of prev. entry in Exp. List to "u" 

11 

TU 

A 

SP20 

of A 

Add. of prev. entry in Expanded List to 

12 

TU 

SP2 

SP21 

"u" of QT 

Add. of Dummy inst. to "u" of EJ 

13 

IJ 

CT11 

SP16 

All subscripts compared for redundancy? 

14 

RA 

SP20 

FC2 

Yes 

15 

MJ 

0 

SQ20 


16 

RA 

SP20 

FC2 

Adv. "u" of QT — Add. of next s.s. in 

17 

RA 

SP21 

FC2 

Exp. List 

Adv. "u" of EJ — Add. of next s.s. in 

20 

QT 

130000 ] 

A 

Dummy List 

Subscript from Expanded List— A 

21 

EJ 

Q30000 ] 

SP13 

S.S. in Dummy List = S.S. in Expanded 

22 

TP 

CT12 

A 

List? 

^Subscripts — A 

23 

EJ 

FC23 

SP26 

^Subscripts = 2? 

24 

EJ 

FC57 

SP31 

^Subscripts - 3? 

25 

MJ 

0 

SP34 

Assume four subscripts 

26 

RA 

RA7 

FC24 

Adv. Nrp by 3 

27 

TP 

FC6 

CT10 

Set Cond. Ind.— 2(2 subs w/s.s. not in 

30 

MJ 

0 

SP36 

A) 

31 

RA 

RA7 

FC25 

Adv. Nrp by 4 

32 

TP 

FC10 

CT10 

Set Cond. Ind.— 4(3subs. w/s.s. not in 

33 

MJ 

0 

SP36 

A) 

34 

RA 

RA7 

FC26 

Adv. Nrp by 5 

35 

TP 

FC70 

CT10 

Set cond. Ind.— 6(4 subs, w/s.s. not i; 

36 

SP 

RA5 

17 

A) 

Add. of last entry in Exp. List — "u" 0 

A 

37 

TU 

A 

SR 

Address of Last Subscript — "u" of TV 

40 

MJ 

0 

SQ12 



CA 

SP41 
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© 


IA 

so 


Subscript Operator (continued) 

0 

RJ 

BR 

BR1 

Decrease address in Operand List (/?) by ' 





in "u" and "v" 


1 

TU 

RA 

SQ3 

Address of last operand in Oper. List — 
"u" of TV 


2 

TV 

S04 

SQ3 

Address of Dummy instruction — "v" of NI 


3 

TV 

[30000] 

[30000 ] 

Subscript — "v" of dummy instruction 


4 

SP 

S04 

17 

Address of Dummy inst.— ’V of A 


5 

TU 

A 

SQ6 

Address of Dummy insL — H u” of NI 


6 

TP 

[30000] 

A 

Dummy instruction — A 


7 

RJ 

ES 

ESI 

Search Expanded List for redundancy 


10 

SJ 

SQ26 

SQ20 

Is dummy inst. - prev. entry in Expanded 

© 

11 

TU 

SQ6 

SR 

List? 

Address of dummy inst. — "u” of TV 


12 

RJ 

SR25 

SR 

P.R. Value — Oper. List and Exp. List; 
Cond. Ind.— Exp. List 

/'—x 

13 

TP 

FC3 

CT7 

Set increment (I) — one in "u" and "v" 

© 

14 

TV 

RA 

SQ15 

Available address in Operand List (£)— 
"v" of NI 


15 

TP 

WT3 

[30000 ] 

Operand Symbol — Operand List 


16 

RJ 

BR 

BR4 

Advance address in Operand List (.&) by 1 
in "u" and "v" 


17 

MJ 

0 

SS 

Return to pick up next symbol in Sorted 
List 

Set D = y (delete Dummy List from Expand 
ed List) 

© 

20 

TP 

RA4 

RA5 


21 

RJ 

RS 

RSI 

Redundant P.R.— Operand List and Red. 
P.R. List 


22 

SJ 

SQ23 

SQ24 

Was P.R. previously entered in Redundant 
P.R. List? 


23 

TP 

WT1 

A 

No, Redundant Partial Result to A 


24 

RJ 

LA 

LAI 

Redundant P.R. in ”A H List? (If yes, Ad¬ 
vance Nrp by one) 


25 

MJ 

0 

SQ14 



26 

RA 

RA7 

FC4 

Advance Nrp by 2 


27 

TP 

FC 

CT10 

Set Cond. Ind — zero (1 subs, w/s.s. not 
in A) 


30 

MJ 

0 

SQ11 




CA 

SQ31 
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0 

IA 

TJ 

ST 

FC60 

ST45 

Subscript Operator (76_ or 75--- CW) 

Symbol 76_? (i.e. 76000>A) 

1 

TP 

FC73 

Q 

Mask for 3rd octal digit of M v"— Q 

2 

QT 

WT3 

CTll 

#s.s.- 3rd octal digit of "v" of Count 

r , 

3 

LQ 

CT11 

36 

°1 

tt s.s.— "v" of index counter Ci 

4 

TP 

FC74 

0 

Mask for rightmost 2 octal digits of 'V 

5 

r\rn 

0-L 

TiTm O 

WIIO 

tl 

n 

- Q 

nid uci • u 0 Ca Lion in P s • Op. In put f r o i 

6 

AT 

LV11 

WT2 

76_callword 

Add callword of pseudo op. input region 

7 

SA 

CT11 

17 

(63000) 

Callword of Modulus Location — ”u" of A 

10 

TV 

S04 

ST11 

Preset address of Dummy Instruction in 

11 

TU 

A 

[30000J 

Dummy List (D) 

Callword of Modulus Location — "u" of 

12 

TP 

FC1 

A 

Dummy Inst. 

1 in "v" — A 

13 

EJ 

CT11 

SQ 

#s.s. = 1? yes to SQ 

14 

TV 

SO 4 

ST15 

Add of Dummy Inst. — "v” of NI 

15 

TV 

CT11 

[30000 ] 

#s.s.— "v” of Dummy Inst. 

16 

SP 

CT11 

17 

*s.s.— "u" of A 

17 

AT 

CT11 

Q 

#s.s.— "u" and "v" of Q 

20 

RS 

RA 

Q 

Decrease address in Operand List (£) by 

21 

RJ 

BR 

BR2 

*s.s. in "u" and "v" 

Has (3 decreased beyond Lower Limit 

22 

TU 

A 

ST 32 

Address of first s.s. 

23 

RS 

CT11 

FC1 

Reduce "v" of index counter (#s.s.) by 

24 

SP 

WT2 

17 

one 

Callword of Location of Subs. Variable 

25 

TU 

A 

WT 

to ”u" of A 

Callword to working temp. 

26 

IJ 

CT11 

ST 30 

All subscripts but one transferred to 

27 

MJ 

0 

ST40 

Dummy List 

Yes 

30 

RJ 

ES 

ES12 

Advance D— next address in Dummy List 

31 

TV 

A 

ST 32 

Address for subscript in Dummy List — 

32 

TP 

[30000 ] 

[30000 ] 

"v" of NI 

Subscript to Dummy List in "v" 

33 

RA 

WT 

FC2 

Adv. "u" of working temp by one—Add. 

34 

TV 

ST 32 

ST35 

of next mult. 

35 

TU 

WT 

[ 30000 ] 

Callword of Multiplier Location to Dum¬ 

36 

RA 

ST 32 

FC2 

my List 

Adv. "u" address of TP— next s.s. in 

37 

MJ 

0 

ST26 

Operand List 

40 

RJ , 

ES 

ES12 

Advance D— next address in Dummy List 
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41 

TV 

A 

ST43 

Address for s.s. in Dummy List — M v” of 
TP 

42 

TU 

ST32 

ST43 

Address of s.s. in Oper. List— M u” of 

TP 

43 

TP 

[30000] 

[30000 ] 

Last s.s.-* Dummy List (no multiplier) 

44 

MJ 

0 

SP 


45 

TP 

FC74 

0 

Mask for rightmost 2 octal digits of ”v" 
- 0 

46 

QT 

A 

A 

Location index in Dummy region from 

75100 Cw— Av 

47 

AT 

LV10 

WT2 

Add callword for function input region 
(62000) 

50 

SA 

FC1 

17 

Callword of Modulus Location — "u" of A 

51 

TV 

S04 

ST52 

Preset Address of dummy ”sub” inst. in 
Dummy List (D) 

52 

TU 

A 

[300003 

Callword of Modulus — ”u” of dummy inst. 

53 

MJ 

CA 

0 

ST54 

SQ 
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© 


IA 

U 


Library Operator 

0 

TP 

FC64 

WT3 

"Gen. Pow." callword (50012) — "v" of 

i 

MJ 

0 

U3 

symbol Temp. 


C 28 ) 

2 

TP 

FC67 

WT3 

"Var. Exp." CW (50022) — "v" of symbol 






temp. 

(29) 

3 

TP 

FC3 

CT3 

Set Trp — one (count transfer of control) 

• M ft,. It tl„tt 

±n u diiu v 


4 

TP 

FC 

CT4 

Set Trc — Zero 


5 

TP 

FC3 

CT5 

Set Trpt — one (count 10 line for trans¬ 
fer of cont.) 


6 

TP 

FC 

CT6 

Set Tret — Zero 


7 

TP 

RC4 

WT5 

Dummy inst — working temp. 


10 

TU 

FC 

WT5 

Zero — "u" of dummy inst. 


11 

TV 

WT3 

WT5 

Lib CW — "v" of dummy inst. 

(so) 

12 

RJ 

ES 

ES12 

Adv. "D" to available dummy inst address 


13 

TV 

A 

WT4 

Add of dummy inst. — "v" working temp. 


14 

TV 

A 

U15 

Add. of dummy inst. — "v" of TP 


15 

TP 

WT5 

[30000D 

Dummy inst. w/callword— Dummy List 


16 

TP 

FC30 

Q 

Mask for rightmost octal digit of "v"— 

A 


17 

QT 

WT3 

CTll 

V 

^Arguments— index counter Ci 


20 

TP 

CT11 

CT12 

^Arguments— index counter C 2 


21 

TV 

RC15 

LL6 

Set switch N to N2 


22 

TV 

RC13 

LM24 

Set switch S to SI 

© 

23 

24 

IJ 

MJ 

CT12 

0 

LK 

LM 

All arguments transferred— Dummy List 



CA 

U25 
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0 

IA 

RJ 

LK 

BR 

BR1 

Library Operator (continued) 
Decrease Add. in Oper. List by 1 

1 

TU 

RA 

LK2 

and "v" 

2 

SP 

[30000 ] 

17 

Arg.— "u" of A 

3 

TP 

A 

WT5 

Arg.— "u" of temp. 5 

4 

TP 

FC54 

A 

74777— "u" of A 

5 

TJ 

WT5 

LL3 

Is arg. subscripted? No to LK6 

6 

SP 

RA6 

17 

P.R. counter — "u" of A 

7 

TU 

WT5 

WT 

Operand — "u" of working temp. 

10 

EJ 

WT 

LL 

Operand = P.R. counter? (oper in I 

11 

TP 

FC103 

Q 

No 

12 

QT 

WT5 

A 


13 

EJ 

FC101 

LK17 

Operand 61_Type? 

14 

RA 

CT3 

FC3 

No-adv. Trp by one in "u" and "v" 

15 

RA 

CT5 

FC3 

Adv. Trpt by one in "u" and "v" 

16 

MJ 

0 

LL22 


17 

RA 

WT5 

FC115 

Adv. indicator by 33g in op. code 

20 

RA 

CT3 

FC4 

Adv. Trp by two in "u" and "v" 

21 

MJ 

0 

LK15 



CA 

LK22 
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(1ft) 


1A 

LL 


Library Operator 

0 

RA 

WT5 

FC5 

Set indicator to 1 in op. code Coper in 

w 

1 

TV 

RC12 

LM24 

Q> _ _ 

Set switch (S) to (§2) 

® 

2 

3 

MJ 

RJ 

0 

BR 

LK14 

BR1 

Dec. add. in Oper. List by 1 in "u" and 
"v” 


4 

TO 

RA 

LL5 


5 

rnr r 

IV 

r- oaaaa I 

LOUUUU J 

WT5 

Subscript — ”v !! of Arg. word 

® 

6 

RJ 

LL6 

C30000 5 

Switch (n) 

7 

TP 

FC56 

A 

76777— "u" of A 

10 

TO 

WT5 

WT 

Oper. — "u” of working temp. 


11 

TJ 

WT 

LL16 

Operand 77_type? 


12 

RA 

CT3 

FC25 

Adv. Trp by 4 in "u" and "v" 


13 

RA 

CT5 

FC3 

Adv. Trpt by 1 in "u" and ”v M 


14 

RA 

WT5 

FC6 

Adv. ind. by 2 in op. code C75_or 76_ 






type arg.) 


15 

MJ 

0 

LL22 


(S) 

16 

RA 

CT3 

FC24 

Adv. Trp by 3 


17 

RA 

CT4 

FC3 

Adv. Trc by 1 


20 

RA 

CT6 

FC3 

Adv. Tret by 1 


21 

RA 

WT5 

FC10 

Adv. indicator by 4 in op. code (77_ 

® 

22 

RJ 

ES 

ES12 

type arg.) 

Adv. ”D M to avail. Dummy inst. Add. 


23 

TV 

RA5 

LL24 

Add. for Arg. word in Dummy List— 'V' 
of NI 


24 

TP 

WT5 

E30000 ] 

Arg. word — Dummy List 


25 

MJ 

0 

U23 




CA 

LL26 
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IA 

LM 


Library Operator 

0 

5P 

WT4 

17 

Add. of Dummy inst. to "u" of A 

1 

TU 

A 

LM2 

Add. of Dummy Inst, to "u H of NI 

2 

TP 

E 30000 3 

A 

Dummy inst. to A 

3 

RJ 

ES 

ESI 

Search Exp. List for Redundancy 

4 

SJ 

LM17 

LM5 

Is dummy inst. redundant? yes to LM5 

5 

TU 

A 

LM12 

Preset address in Expanded List of first 
argument 

6 

TU 

LM2 

LM15 

Preset address of dummy library instruc¬ 
tion 

7 

TP 

FC35 

0 

Mask for "u" and "v" to Q 

10 

IJ 

CT11 

LM12 

All arguments compared for redundancy? 

11 

MJ 

0 

LM25 


12 

QT 

[30000 ] 

WT2 

Argument from Expanded List to temp. 2 

13 

RA 

LM12 

FC2 

Advance to next argument in Expanded List 

14 

RA 

LM15 

FC2 

Advance to next argument in Dummy List 

15 

QT 

E30000 J 

A 

Argument from Dummy List to A 

16 

EJ 

WT2 

LM10 

Arg. in Dummy List = Arg. in Expanded 

List 

17 

TP 

RA5 

RA4 

Sety = D (add Dummy List to Expanded 

List) 

20 

RA 

RA7 

CT3 

Adv. Nrp by Trp 

21 

RA 

CT 

CT4 

Adv. Crc by Trc 

22 

RA 

CT1 

CT5 

Adv. Crpt by Trpt 

23 

RA 

CT2 

CT6 

Adv. Crct by Tret 

24 

MJ 

0 

E300003 

Switch (S) 

25 

TP 

LM12 

A 

Address of redundant partial result to 

M u" of A 

26 

MJ 

0 

LN21 



CA 

LM27 
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Check for 1st 
subscript in A 


/ Sl) 


IA 

LN 


Library Operator 

0 

RA 

RA7 

CT7 

Adv. Nrp by Increment (I) 


i 

MJ 

0 

LN5 


S2j 

2 

RJ 

LQ 

LQ7 

Enter P.R. in "Q" List 


3 

MJ 

0 

LN5 


>S3) 

4 

RJ 

LA 

LA 6 

Enter P.R. in "A" List 

39) 

5 

TP 

FC3 

CT7 

Set increment (I)— one in "u" and "v" 


6 

RJ 

PP10 

PP 

Enter current P.R. in Oper. List and 
Exp. List 

40j 

7 

TP 

WT3 

A 

Lib. callword — A 

s — s 

10 

RJ 

FS 

FS1 

Enter Lib. callword in Op. File 1 


11 

MJ 

0 

LN23 

N2J 

r 12 

TV 

WT5 

WT1 

Subscript — "v" of working temp. 

v_y 

13 

TP 

RA6 

A 

P.R. counter — A 


14 

EJ 

WT1 

LN16 

P.R. counter - subscript? 

< 

15 

MJ 

0 

LL7 


16 

TV 

RC14 

LM24 

Set ® to @ 


17 

RA 

WT5 

FC5 

Set indicator— 1 in op. code (s.s. in 






A) 


^ 20 

MJ 

0 

LL7 



21 

TP 

RA4 

RA5 

Set D -y (inst. Red. do not add Dummy 
List to Exp. List) 


22 

MJ 

0 

RR50 



23 

SP 

WT3 

17 



24 

RJ 

LS 

LSI 

Library Routine Callword to List 1 


25 

MJ 

0 

SS 




CA 

LN26 
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Power Operators 




IA 

IP 


(3), (-3), (2), (-2), 00, (:-X) 


C 4 0 

0 

TP 

RC11 

WT5 

Entrance-POW (3) 


M 

1 

MJ 

0 

IP3 



U 2 J 

2 

TP 

RC12 

WT5 

Entrance-POW (-3) 


U3j 

3 

RJ 

IR15 

IR 

Check for redundancy 



4 

QJ 

IP5 

IP7 

Is operand subscripted? 



5 

RA 

RA7 

FC26 

Advance Nrp by 5 in "u" and "v" 



6 

MJ 

0 

IR16 



7 

RA 

RA7 

FC4 

Advance Nrp by 2 in "u" and "v" 



10 

MJ 

0 

IS33 



(44 

11 

TP 

RC7 

WT5 

Entrance-POW (2) 



12 

MJ 

0 

IP14 



\45y 

13 

TP 

RC10 

WT5 

Entrance-POW (-2) 


(4*0 

14 

RJ 

IR15 

IR 

Check for redundancy 



15 

QJ 

IP16 

IP20 

Is operand subscripted? 



16 

RA 

RA7 

FC25 

Advance Nrp by 4 in ”u" and "v" 



17 

MJ 

0 

IR16 




20 

RA 

RA7 

FC3 

Advance Nrp by one in ’V and ”v" 



21 

MJ 

0 

IS33 



( 47 ) 

22 

TP 

RC13 

WT5 

Entrance-POW (%) 



23 

MJ 

0 

IP25 



Uq) 

24 

TP 

RC14 

WT5 

Entrance-POW (-%) 


(W) 

25 

RJ 

IR15 

IR 

Check for redundancy 



26 

QJ 

IP27 

IP32 

Is operand subscripted? 



27 

RA 

RA7 

FC25 

Advance Nrp by 4 in "u" and 'V* 


® 

30 

RJ 

IP41 

IP35 

Square root callword to Op. File 1 
List 1 

and 


31 

MJ 

0 

IR16 



© 

32 

RA 

RA7 

FC4 

Advance Nrp by 2 


33 

RJ 

IP41 

IP35 

Square root callword to Op. File 1 
List 1 

and 


34 

MJ 

0 

IS21 




35 

TP 

FC66 

A 

Square root callword to "A” 



36 

RJ 

FS 

FS1 

Store square root callword in Op. 1 

Pile 1 


37 

TP 

LS25 

A 

Square root callword to "A" 



40 

RJ 

LS 

LSI 

Store square root callword in List 

1 


41 

MJ 

0 

[30000 ] 




CA 

IP42 
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IA 

IQ 


Power Operators (-1),(4to63),(-4-to -63) 

0 

TF 

RC17 

Wi5 

Entrance-POW (-1) inst. to temp. 5 

1 

RJ 

IR15 

IR 

Check for redundancy 

2 

QJ 

IQ3 

IS21 

Is operand subscripted? 

3 

RA 

RA7 

FC4 

Advance Nrp by 3 in "u" and "v" 

4 

TU 

WT5 

WT 

Operand to working temp. 

5 

TP 

FC56 

A 

76777— "u" of A 

6 

TJ 

WT 

TR27 

Is operand 77_type? 

7 

TP 

FC12 

CT10 

10 — op. code of cond. ind. 

10 

TV 

WT5 

WT1 


11 

TP 

RA6 

A 

P.R. ocunter— A 

12 

EJ 

WT1 

IS 

Operand - P.R. counter? (subscript in 
’’A 1 ’?) 

13 

MJ 

0 

TR33 

No 

14 

TP 

RC15 

WT5 

Entrance-POW (4 to 63) 

15 

MJ 

0 

IQ17 


16 

TP 

RC16 

WT5 

Entrance-POW (-4 to -63) 

17 

TV 

RC17 

IR10 

Set switch (t) to @ 

20 

RJ 

IR15 

IR1 

Check for redundancy 

21 

RJ 

ES 

ES12 

Advance dummy tally D by one 

22 

TV 

RA5 

IQ23 

Available address in Exp. List —"v” of 
TP 

23 

TP 

WT3 

[30000] 

13_symbol in 'V* — Exp. List 

24 

QJ 

IQ25 

IQ27 

Is operand subscripted? 

25 

RA 

RA7 

FC27 

Advance Nrp by 6 in "u" and 'V 

26 

MJ 

0 

IR16 


27 

RA 

RA7 

FC24 

Advance Nrp by 3 in "u M and "v" 

30 

MJ 

0 

IS33 


31 

TU 

A 

IQ32 

Address of 13_symbol (POW y?ord) in 

Exp. List— "u" of TP 

32 

TP 

[30000] 

A 

13_symbol (POW word) from Exp. List—A 

33 

EJ 

WT3 

RR50 

Is 13_symbol (POWword) also redundant? 

34 

MJ 

0 

IR11 



CA 

IQ35 
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IA 

IR 


( 57 ) 


r 0 

TV 

RC16 

IR10 

(¥) 


1 

RJ 

VC50 

VC5 



2 

TP 

Q 

WT2 



3 

QJ 

IR4 

IR36 

0 

c ^ 


4 

TU 

RA 

IR5 

CD O 

T3 0> 


5 

TV 

[30000 ] 

WT5 

S3 J3 

3 O 

< 

6 

TP 

WT5 

A 

■O 

CD 

7 

RJ 

ES 

ESI 

OS 


10 

SJ 

IR11 

[30000 1 

( 59 ) 


11 

RJ 

ES 

ES12 



12 

TV 

RA5 

IR13 



13 

TP 

WT5 

[30000 ] 



14 

TP 

WT2 

0 

© 


^ 15 

MJ 

0 

[30000 ] 


r 16 

17 

TU 

TP 

WT5 

FC56 

WT 

A 

-o 

cd 


20 

TJ 

WT 

TR27 

+-> 

CU 


21 

TP 

FC12 

CT10 

■H 

u 


22 

TV 

WT5 

WT1 

TS O 

a w 


23 

TP 

RA6 

A 

CO -Q 

Vi 3 

CD W 

a. 

< 

24 

EJ 

WT1 

IS 


0 


25 

RA 

RA7 

FC3 

© 


26 

MJ 

0 

IR34 


27 

TP 

FC10 

CT10 


30 

RA 

CT 

FC3 



31 

TV 

WT5 

WT1 



32 

TP 

RA6 

A 



33 

EJ 

WT1 

IS 



34 

RA 

RA7 

CT7 



l 35 

MJ 

0 

IS2 



36 

TV 

FC 

WT5 



37 

MJ 

0 

IR6 




CA 

IR40 



Power Operators (continued) 

Set switch (t) to (fj) 

Check variables and set switch (h) 

s.s. "yes or no" indicator— working temp. 

Is there a subscript? 

Address of s.s. — "v" of NI 
s.s. — "v" of dummy inst. 

Dummy instruction to "A" 

Search Exp. List for instruction 
Is instruction redundant? (switch T) 
Advance dummy tally by one 
Available address in Expanded List — "v" 
of TP 

Instruction to Expanded List 
s.s. "yes or no" indicator— Q 
Exit 

"u" of dummy inst.— working temp. 

76777- "u" of A 

Is operand 77_type 75 

Set cond. ind. — 10 (operand 74l”type) 
Subscript to working temp. 

P.R. counter— A 

P.R. counter - subscript? (is subscript 
in A) 

Advance Nrp by one in "u" and "v" 

Set cond. ind.— 4 (operand 77_type) 

Advance Crc (count of rel. const.) by 
one in "u" and "v" 

Subscript to "v" of working temp. 

P.R. counter— A 

Subscript - P.R. counter (is subscript 
in A) 

Advance Nrp by increment (I) 

Zero — "v" of dummy inst. 
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No subscript no subscript 

13___, 14__. l or 15 16_or 17_ 



IA 

IS 


Power Operators (continued) 

RA 

CTIO 

FC5 

Adv. op. code of cond. ind. by one (s.s. 
in A) 

RJ 

LA 

LA 6 

Enter P.R. value in "A" List 

TP 

FC3 

CT7 

Set increment (I)-* one 

RJ 

PPIO 

PP 

New P.R. value —Exp. List and Oper. List 

TV 

RA4 

IS6 

Address of P.R. value in Exp. List — "v" 


rroi 
r v/ou 


of QT 

rpn 

ir 

A 

V 


QS 

CTIO 

[30000 ] 

Indicator— op. code of P.R. word 

TP 

FC73 

Q 

Mask for 3rd octal digit of "v"— Q 

QT 

WT3 

A 

3rd octal digit— A 

ZJ 

IS13 

IS12 

3rd octal digit = 1 (is this neg. power) 

MJ 

0 

IS44 


RA 

RA7 

FC3 

Advance Nrp by one in "u" and "v" 

TP 

FC65 

A 

Floating point one— A 

RJ 

CW 

CW1 

Store floating pt. "one” in constant pool 

TV 

IS6 

IS17 

Address of P.R. word — "v" of NI 

TU 

A 

[30000] 

Callword of fixed const.— "u" of P.R. 
wo rd 

MJ 

0 

IS44 


TU 

WT5 

WT 

Operand— working temp. 

SP 

RA6 

17 

P.R. counter—”u" of A 

EJ 

WT 

IS30 

Operand = P.R. counter? (operand in "Q") 

TP 

FC 

CTIO 

No, set op. code of cond. ind.— Zero 

RJ 

EK25 

EK6 

To 61_routine (”u" ent.) 

RA 

RA7 

CT7 

Advance Nrp by increment (I) 

MJ 

0 

IS2 


TP 

FC5 

CTIO 

Set op. code of cond. ind.— one 

RJ 

LQ 

LQ7 

Enter P.R. value in Q list 

MJ 

0 

IS2 


RA 

RA7 

CT7 

Advance Nrp by increment (I) 

TP 

FC 

CTIO 

Set op. code of cond. ind.— zero 

TP 

FC103 

0 

Mask for first two octal digits of "u" 

- Q 

QT 

WT5 

A 

First two octal digits of M u w of D—A 

EJ 

FC101 

IS41 

Operand = 61_.type? 

MJ 

0 

IS2 


RA 

CTIO 

FC115 

Adv. cond. ind. by 33 q in op. code. 

(oper in "u" 61_) 

RA 

RA7 

FC4 

Adv. Nrp by 2 in "u" and "v" 

MJ 

0 

IS2 


TP 

WT3 

A 

Operation symbol to "A" 

EJ 

FC1I7 

IS50 

Symbol = 16000 (POWJO? 

EJ 

FC120 

IS50 

Symbol = 16100 (POW -JO? 

MJ 

0 

SS 


TP 

CTIO 

A 

Condition indicator to A 

EJ 

FCIO 

IS54 

Cond. ind = 4? 
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© 


52 RA CT1 FC4 No - advance Crpt by 2 in M u" and "v” 

53 MJ 0 SS 

54 RA CT1 FC3 Advance Crpt by 1 in "u" and ”v" 

55 RA CT2 FC3 Advance Crct by 1 in "u" and "v” 

56 MJ 0 SS 

CA IS57 
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0 

•H 

vy 


r 

0 

IA 

TP 

FD 

DfQ 

iXVy kJ 

WT5 

> 

•iH 



l 

RJ 

VC50 

VC 

X5 




2 

QJ 

FD3 

FD5 

03 

C 


< 


3 

RJ 

FD26 

FD22 

*!—1 
•H> 




4 

MJ 

0 

FD14 

CD 

o 




5 

RJ 

FD34 

FD31 

i— ! 




6 

MJ 

0 

FD20 




r 

7 

TP 

RC2 

WT5 




10 

RJ 

VC50 

VC 

o 




11 

QJ 

FD12 

FD16 

CD 

U 



r 

12 

RJ 

FD26 

FD22 

+-> 

-Q 

Q 



13 

TV 

RC11 

PN61 

o 

w 

03 

< 


14 

TP 

FC10 

CT10 

c 

•rH 




15 

MJ 

0 

RR43 

-t-3 

CD 




16 

RJ 

FD34 

FD31 

O 

i — I 




17 

RA 

RA7 

FC3 




| 

20 

RA 

CT10 

FC10 


I 21 



MJ 

0 

RR43 

TV 

RC10 

PN61 

RJ 

RR22 

RR 

TV 

WT5 

WT1 

TP 

RA6 

A 

EJ 

WT1 

[30000 

SP 

RA6 

17 

MJ 

0 

FP7 

RJ 

RR42 

RR25 

TV 

WT5 

WT1 

TP 

RA6 

A 

EJ 

WT1 

r30000 

RA 

RA7 

CT7 

MJ 

0 

RR44 

CA 

FD37 



Floating Divide and Floating 
Subtract Operators 

Dummy fl. divide inst.—* working temp. 
Check variables and set switch ( 5 ) 

Is there a subscript word? 

Subscript word 

No subscript word 

Dummy fl. subtract inst.—- working temp. 
Check variables and set switch (H) 

Is there a subscript word? 

Subscript word 
Set switch (M)— @ 

Set cond. ind.— 4 in op. code (oper. 
for "v" in Q) 

No subscript word 

Advance Nrp by one in "u M and H v" 

Set cond. ind.-—16 in op. code (oper. 
for "v" in Q) 

Set switch (m) — @ 

Jump to redundancy routine 

H v M of dummy inst.— "v" of working temp. 

P.R. counter — A 

P.R. counter—"u M of A 

Jump to Redundancy Routine 

"v M of dummy inst — "v" of working temp. 

P.R. counter— A 

P.R. counter = "v" of dummy inst. 

Advance Nrp by increment (I) 
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Floating Plus and Floating 


0 

IA 

TP 

FP 

RC21 

WT3 

Multiply Operators 

Dummy fl. plus w/zero in "u" and "v”— 

1 

MJ 

0 

FP3 

working temp. 

2 

TP 

RC22 

WT3 

Dummy fl. mult, w/zero in "u" and "v"— 

3 

RJ 

VS64 

VS 

working temp. 

Sort operands and^set switch (H) 

Dummy floating [ {mifiply] with operands 

4 

RA 

WT5 

WT3 

5 

QJ 

FP6 

FP26 

— "A" and temp. 

Is there a subscript word? yes to FP6 

6 

RJ 

RR22 

RR 

Is operation redundant? no to FP7 

7 

TU 

WT6 

WT 

"u" of s.s. word— working temp. 

10 

EJ 

WT 

FP23 

Is P.R. counter = "u” of s.s. word (s.s. 

11 

TP 

RA6 

A 

for "u" in A) 

P.R. counter— ”v” of A 

12 

TV 

WT6 

WT1 

"v" of s.s. word—working temp. 

13 

EJ 

WT1 

FP17 

P.R. counter = "v" of s.s. word (s.s. for 

14 

RA 

RA7 

CT7 

"v" in A) 

Advance Nrp by increment (I) 

15 

TP 

FC 

CT10 

Set cond. ind.— Zero (neither s.s. in A) 

16 

MJ 

0 

RR44 


17 

TV 

RC3 

PN14 

Set switch (§) — @ 

20 

TV 

RC5 

PN44 

Set switch (j) — @ 

21 

TP 

FC6 

CT10 

Set cond. ind.— 2 in op. code (s.s. for 

22 

MJ 

0 

FP24 

"v" in A) 

23 

TP 

FC5 

CT10 

Set cond. ind. — 1 in op. code (s.s. for 

24 

RJ 

LA 

LA 6 

"u" in A) 

Enter P.R. in "A" list 

25 

MJ 

0 

RR44 


26 

RJ 

RR42 

RR25 

Is operation redundant? no to FP27 

27 

RA 

RA7 

CT7 

Advance Nrp by increment (I) 

30 

MJ 

0 

RR44 



CA 

FP31 
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IA 

P0 


Fixed Point Plus Operator 

u 

RJ 

ES 

ES12 

Advance "D" to available dummy inst. add¬ 
ress 


1 

TV 

A 

P04 

Available dummy inst. address — "v" of AT 


2 

TV 

A 

WT4 

Address of dummy inst.-* "v" of temp. 


3 

RJ 

0S13 

OS 

Sorted operands — "u" and "v" of A 


4 

AT 

RC23 

[30000] 

Dummy "fixed plus" inst. w/operands — 
Dummy List 


5 

TU 

A 

WT 

Operand in "u" of dummy inst.— working 
temp. 


6 

RJ 

ES 

ESI 

Search Expanded List for redundancy 


7 

SJ 

P010 

P021 

"u" if inst. not redundant - "v" if inst. 
is redundant 

(83) 

10 

SP 

RA6 

17 

Partial result counter— "u" of A 

v—y 

11 

EJ 

WT 

P016 

Is P.R. counter = "u" of dummy inst. (op¬ 
erand in A?) 


12 

RA 

RA7 

FC4 

No, advance Clines in running prog (Nrp) 

(83A) 

13 

RJ 

SR25 

SR 4 

by 2 in "v" 

P.R. value— Exp. List and Oper. List; 
cond. ind.— Expanded List 


14 

TP 

FC 

CT7 

Set increment (I) — zero 

® 

15 

16 

MJ 

RA 

0 

RA7 

SS 

FC3 

Advance #lines in running prog (Nrp) by 

(84A) 

17 

RJ 

SR25 

SR7 

1 in "u" and "v" 

P.R. value —"A" List, Exp. List and Oper. 
List; cond. ind.— Exp. List 


20 

MJ 

0 

P014 


(82A) 

21 

TP 

RA4 

RA5 

Set D -y (delete Dummy List from Expand¬ 
ed List) 


22 

RJ 

RS 

RSI 

Redundant P.R. value — Expanded List and 
Red. P.R. List 


23 

MJ 

0 

SS 




CA 

P024 
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IA 

MO 


Fixed Point Multiply Operator 

® 

0 

RJ 

ES 

ES12 

Advance "D" to available dummy inst. add¬ 
ress 


1 

TV 

A 

M04 

Available dummy inst. address — ”v" of AT 


2 

TV 

A 

WT4 

Address of dummy inst — "v" of temp. 


3 

RJ 

0S13 

OS 

Sorted operands — "u” and "v" of A 

® 

4 

AT 

RC25 

[30000 ] 

Dummy "fixed mult" inst w/operands — 

Dummy List 


5 

TU 

A 

WT 

Operand in "u" of dummy inst— working 
temp. 


6 

RJ 

ES 

ESI 

Search Expanded List for redundancy 

© 

7 

SJ 

M010 

M021 

"u” if not redundant; "v" if redundant 

10 

SP 

RA6 

17 

Partial result counter— "u" of A 

11 

EJ 

WT 

M016 

Is P.R. counter = "u" of dummy inst.? 
(operand in A) 



12 

RJ 

SR25 

SR4 

No, P.R. symbol — Exp. List and Oper. 
List; cond. ind.— Exp. List 


13 

RA 

RA7 

FC3 

Advance Clines in running prog. (Nrp) by 

@ 

14 

TP 

FC3 

CT7 

1 in v 

Set increment (I) — one in "u" and 'V' 

® 

15 

16 

MJ 

RA 

0 

RA7 

SS 

FC3 

Advance #lines in running prog (Nrp) by 

1 in "u M and "v" 


17 

RJ 

SR25 

SR7 

P.R. value— "A" list, Exp. List and Oper. 
List; cond. ind— Exp. List 

s~*\ 

20 

MJ 

0 

M014 


(86A) 

21 

TP 

RA4 

RA5 

Set D =y (delete Dummy List from Expand¬ 
ed List) 


22 

RJ 

RS 

RSI 

Redundant P.R.— Expanded List and Red. 
P.R. List 


23 

SJ 

M024 

M026 

Was P.R. previously entered in Redundant 
P.R. List? 


24 

TP 

WT1 

A 



25 

RJ 

LA 

LAI 

Redundant P.R. in ’’A” List (if yes, ad¬ 
vance Nrp by 1) 


26 

MJ 

0 

SS 




CA 

M027 
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IA 

NO 


Fixed Point Subtract Operator 

[90J 

0 

RJ 

ES 

ES12 

Advance "D" to available dummy inst. add¬ 





ress 


1 

TV 

A 

N012 

Dummy inst. address — 'V of AT 


2 

TV 

A 

WT4 

Dummy inst. address — "v" of working temp 


3 

RJ 

BR 

BR1 

Decrease address in Oper. List (£) by 1 
in "u" and "v" 


4 

TU 

RA 

NOS 

Addrsss of first operand — M u M of NX 


5 

TP 

[30000] 

WT5 

First operand -4 "v" of working temp. 


6 

RJ 

BR 

BR1 

Decrease add. in Oper. List (/?) by 1 in 
"u" and ”v M 


7 

TU 

RA 

N010 

Address of second operand — "u" of NI 


10 

SP 

[30000] 

17 

Second operand — "u" of A 


11 

SA 

WT5 

0 

Operand — "u" and "v" of A 


12 

AT 

RC24 

[30000 ] 

Dummy "fixed minus" inst. w/operands — 
Dummy List 


13 

TU 

A 

WT 

Operand in "u" of dummy inst.— working 
temp. 


14 

TV 

A 

WT1 

Operand in "v" of dummy inst.— working 
temp. 

Q 

15 

RJ 

ES 

ESI 

Search Expanded List for redundancy 

16 

SJ 

N017 

P021 

"u" if inst. not redundant - "v" if inst. 

17 

SP 

RA6 

17 

redundant 

Partial result counter — "u" of A 



20 

EJ 

WT 

P017 

Is P.R. counter = "u" of dummy inst. 
(operand in A] 


21 

RA 

RA7 

FC4 

Advance Clines in running prog (Nrp) by 

2 in "u" and "v" 


22 

TP 

RA6 

A 

Partial result counter— "v" of A 


23 

EJ 

WT1 

N026 

Operand for "v" in A 

® 

24 

RJ 

SR25 

SR4 

P.R. value—Exp. List and Oper. List; 
cond, ind—Exp. List 

f N 

25 

MJ 

0 

N030 


© 

26 

TP 

FC6 

CT10 

Set condition indicator — two (operand 
for "v" in A) 


27 

RJ 

SR25 

SR10 

P.R. value —"A" list, Exp. List and Oper, 
List; cond. ind.— Exp. List 


30 

TP 

FC 

CT7 

Set increment (I)-* Zero 


31 

MJ 

0 

SS 




CA 

N032 




1323 



0 

IA 

RJ 

DO 

ES 

ES12 

Divide Operator 

Advance "D” to available dummy inst. add¬ 

1 

TV 

A 

D012 

ress 

Dummy inst. address— M v" of AT 

2 

TV 

A 

WT4 

Dummy inst. address— M v” of working temp 

3 

RJ 

BR 

BR1 

Decrease add. in Oper. List i/3) by 1 in 

4 

TO 

RA 

D05 

”u” and "v" 

Address of first operand— 'V* of NI 

5 

TP 

[30000] 

WT5 

First operand — ”v" of dummy inst. (divi¬ 

6 

RJ 

BR 

BR1 

sor) 

Decrease add. in Oper. List i/3) by 1 in 

7 

TU 

RA 

D010 

"u" and "v" 

Address of second operand — ”u" of NI 

10 

SP 

[30000] 

17 

Second operand — "u” of A (dividend) 

11 

SA 

WT5 

0 

Operand — "u” and "v" of A 

12 

AT 

RC26 

[30000 ] 

Dummy "fixed divide” inst. w/operands — 

13 

TU 

A 

WT 

Dummy List 

Operand in "u" of dummy inst— working 

14 

RJ 

ES 

ESI 

temp. 

Search Expanded List for redundancy 

15 

SJ 

D016 

M021 

”u” if inst. not redundant - ”v” if inst. 

16 

SP 

RA6 

17 

redundant 

Partial result counter— ”u" of A 

17 

EJ 

WT 

D024 

Is P.R. counter = ”u" of dummy inst. 

20 

RA 

RA7 

FC4 

(operand in A?) 

Advance #lines in running prog (Nrp) by 

21 

RJ 

SR25 

SR4 

2 in "u” and "v" 

P.R. value—Exp. List and Oper. List; 

22 

TP 

FC 

CT7 

cond. ind— Exp. List 

Set increment (I)— Zero 

23 

MJ 

0 

SS 


24 

RA 

RA7 

FC3 

Advance #lines in running prog (Nrp) by 

25 

RJ 

SR25 

SR7 

1 in "u" and "v” 

P.R. value—"A” list, Exp. List and 

26 

MJ 

0 

D022 

Oper List; cond. ind.— Exp. List 


CA 

D027 
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Floating Point Unary Minus 



IA 

FN 


and Absolute Value 

0 

TP 

RC5 

WT5 

Dummy floating Unary minus— temp 5 

1 

MJ 

0 

FN3 


2 

TP 

RC6 

WT5 

Dummy floating absolute value— temp 5 

3 

RJ 

VC50 

VC5 

Check variable and set switch (h) 

4 

QJ 

FN5 

FN60 

Is there a subscript? no, take "v n 

5 

TU 

RA 

FN6 

Yes 

6 

TV 

[30000 I 

WT5 

Subscript— ”v" of dummy instruction 

*7 

rr n 

liKT’C 

/l 

r» _ i _*__ 

UUHUIIJ ill&UU^HUIl LU t\ 

1 


Hid 

n 

10 

RJ 

ES 

ESI 

Search Exp. List for instruction 

11 

SJ 

FN12 

FN26 

Is instruction redundant? yes to FN26 

12 

RJ 

ES 

ES12 

Advance dummy tally by one. 

13 

TV 

RA5 

FN14 

Available address in Exp. List— "v" of 
TP 

14 

TP 

WT5 

[30000 ] 

Inst, at D — Expanded List 

15 

TV 

WT5 

WT1 

s.s.— V of working temp. 

16 

TP 

RA6 

A 

P.R. counter— A 

17 

EJ 

WT1 

FN23 

Is P.R. counter = subscript? (s.s. for 
"u" in "A"?) 

20 

TP 

FC 

CT10 

Set cond. ind.-* Zero (neither s.s. in 
"A") 

21 

RA 

RA7 

CT7 

Advance Nrp by increment (I) 

22 

MJ 

0 

FN102 


23 

TP 

FC5 

CT10 

Set cond. ind.— one (s.s. for "u” in A) 

24 

RJ 

LA 

LA 6 

Enter P.R. value in "A” List 

25 

MJ 

0 

FN102 


26 

RJ 

RS 

RSI 

Redundant P.R. value— Oper. List and 
Red. P.R. List 

27 

SJ 

FN30 

SS 

Was redundant P.R. in Red. P.R. List? 

30 

TP 

WT1 

A 

Redundant P.R.-* A 

31 

RJ 

LQ 

LQ17 

Is redundant P.R. in "Q” List (yes—NI; 
no — SS) 

32 

SN 

Q 

17 

-jn+r — "u" of A 

33 

SA 

RA2 

0 

+r— "u" of A 

34 

SS 

FC2 

0 

(r-1)— ”u" of A 

35 

SA 

LQ21 

25 

I$tr-1 —■ "v" of Al (address of P.R. in 
"Q" List) 

36 

LT 

0 

A 

IQ+r-1— "v" of A R 

37 

TV 

A 

FN40 

Address of redundant P.R. in "Q" List — 
'V of NI 

40 

TP 

FC 

[30000 ] 

Delete redundant P.R. from "Q” List 

41 

TU 

RS2 

FN43 

Add. of redundant P.R. in Exp. List — 

"u" of TP 

42 

RA 

FN43 

FC2 

Adv. to address after redundant P.R. in 
Exp. List 

43 

TP 

[30000] 

Q 

Mask for op. code and V-* Q 

44 

QT 

FC37 

WT2 

Op. code and "v" of word following Red, 
P.R.— working temp. 
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45 

TP 

WT2 

A 

Op. code and "v" of word following red. 

P. R. — A 

46 

TP 

RC2 

WT2 

Dummy FS—- working temp. 

47 

TV 

WT1 

WT2 

Redundant P.R.— "v" of dummy FS in work¬ 
ing temp. 

50 

EJ 

WT2 

FN52 

Is inst. following red. P.R. in Exp. List 





= FS with red. P.R. in "v"? 

51 

MJ 

0 

SS 


52 

TU 

Q 

WT 

"u" of inst. following red. P.R.— "u" 
of working temp. 

53 

TP 

FC56 

A 

76777— "u" of A 

54 

TJ 

WT 

FN107 

"u” of FS inst. 77_ type? no to FN55 

55 

TP 

FC54 

A 

73777— "u" of A 

56 

TJ 

WT 

FN110 

"u" of FS inst. 75___ or 76_type? 

57 

MJ 

0 

FN107 


60 

TV 

FC 

WT5 

Zero to "v" of dummy instruction 

61 

TP 

WT5 

A 

Dummy instruction — A 

62 

RJ 

ES 

ESI 

Search Exp. List for instruction 

63 

SJ 

FN64 

FN26 

Is instruction redundant? yes, take ”v" 

64 

RJ 

ES 

ES12 

Advance dummy tally by one 

65 

TV 

RA5 

FN66 

Available address in Expanded List— ”v H 
of TP 

66 

TP 

WT5 

t 30000 ] 

Instruction — Expanded List 

67 

RA 

RA7 

FC3 

Advance Nrp by one 

70 

TP 

FC13 

CT10 

Set cond. ind.— 12 in op. code (neither 
"u" nor 'V* subs) 

71 

SP 

RA6 

17 

P.R. counter— "u" of A 

72 

TU 

WT5 

WT 

"u" of dummy inst.— ”u M of working temp. 

73 

EJ 

WT 

FN77 

P.R. counter - "u" of dummy inst.? 

74 

RA 

RA7 

CT7 

Advance Nrp by increment (I) 

75 

RJ 

EK25 

EK6 

To 61_routine "u" ent. 

76 

MJ 

0 

FN101 


77 

RA 

CT10 

FC7 

Set cond. ind.— 15 in op. code 

100 

RJ 

LQ 

LQ7 

Enter partial result symbol in "Q" List 

101 

TV 

RC7 

PN 

Set switch (3) . to (I) 

102 

TV 

RA5 

WT4 

Address of dummy inst.— "v" of working 
temp. 

103 

TP 

FC 

CT7 

Set increment (I)— Zero 

104 

TV 

RC20 

PN61 

Set switch (M) to @ 

105 

RJ 

SR25 

SR11 

P.R. value— Oper. List (/?) and Exp. List 
(^); cond. ind—Exp. List 

106 

MJ 

0 

PN 


107 

RS 

RA7 

FC3 

Reduce Nrp by one 

110 

TU 

FN43 

FN112 


111 

RA 

FN112 

FC2 


112 

RS 

[30000 ] 

FC10 

Change ind for M FS"— operand for "v" 
not in Q 

113 

MJ 

0 

SS 



CA 

FN114 
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Fixed Point Unary Minus and 




IA 

NF 


Absolute Value Operators 

(112) 

0 

TP 

RC27 

WT5 

Dummy fixed pt, unary minus inst. to temp 


1 

MJ 

0 

NF3 

(113) 

2 

TP 

RC30 

WT5 

Dummy fixed pt. abs. value inst. to temp 

(m) 

3 

RJ 

ES 

ES12 

Adv. M D” to available dummy inst. address 


4 

TV 

A 

NF12 

Preset address in Exp. List for dummy 
inst. 


5 

TV 

A 

WT4 

Store address for dummy inst. in temp 


6 

RJ 

BR 

BR1 

Decrease address in Operand List (/?) by 1 


7 

TU 

RA 

NF10 

Preset address of next operand 


10 

TP 

[30000 ] 

Q 

Obtain next operand from Operand List 


11 

SP 

Q 

17 



12 

AT 

WT5 

[30000] 

Dummy instruction with operands to Dum¬ 
my List 

© 

13 

14 

TP 

RJ 

Q 

ES 

WT1 

ESI 

Search Expanded List for redundancy 


15 

SJ 

NF16 

NF22 

"u" if not redundant, "v" if redundant 


16 

RA 

RA7 

FC3 

Advance Nrp by 1 


17 

TP 

WT1 

A 

Operand to "A" 


20 

EJ 

RA6 

P017 

P.R. counter - operand? (operand in ”A M ?) 


21 

MJ 

0 

P013 

No 

© 

22 

TP 

RA4 

RA5 

Delete Dummy List from Expanded List (set 
D — y ) 


23 

RJ 

RS 

RSI 

Was redundant P.R. in redundant P.R. List 


24 

SJ 

NE 

SS 

"u" if no, "v” if yes 



CA 

NF25 


Fixed Point Unary Minus and 



IA 

NE 


Absolute Value Operators 


0 

TP 

WT1 

A 

Redundant partial result to A 


1 

EJ 

RA6 

NE5 

Redundant P.R. = P.R. counter (current 






P.R.)? 


2 

TU 

RA3 

NE3 



3 

RP 

[30000 3 

SS 

Search "A" List 


4 

EJ 

XA 

NE6 

Is redundant P.R. in "A" List? 


5 

TP 

FC122 

CT7 

Set increment (I) to minus one 


6 

RA 

RA7 

FC3 

Advance Nrp by one 


7 

MJ 

0 

SS 




CA 

NE10 
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IA 

EE 


Storage Operator (space-period) 

0 

TP 

RC20 

WT5 

Dummy store inst, to working temp 5 

1 

RJ 

BR 

BR1 

Decrease /3 by 1 in "u" and M v” 

2 

TO 

RA 

EE 3 

Preset address of operand 

3 

SP 

[ 30000 3 

17 

Operand to "u" of A 

4 

TO 

A 

WT5 

Operand to ”u” of working temp 5 

5 

TO 

A 

WT 

Operand to "u" of working temp 

6 

TP 

FC54 

A 

74777 to "u" of A 

7 

TJ 

WT 

EG 

Operand > 74777? (operand subscripted?) 

10 

RJ 

BR 

BR1 

Decrease/! by 1 in M u" and "v” 

11 

TO 

RA 

EE12 

Address of 2nd operand — "u" of NI 

12 

TV 

L30000 ] 

WT5 

Operand — "u" of working temp 5 

13 

TV 

WT5 

WT1 

Operand — "v" of working temp 1 

14 

TP 

FC52 

A 

76777- "v" of A 

15 

TJ 

WT1 

EF26 

Operand in ”v”> 76777? (i.e. 77_type) 

16 

TP 

FC76 

A 

74777- "v” of A 

17 

TJ 

WT1 

EF5 

Operand in ”v"> 74777? (i.e. 75_type) 

20 

TP 

FC13 

CT10 

Set cond. ind.— (Q) in op. code - ( M u M 





and "v” non-subs) 

21 

RA 

RA7 

FC4 

Advance Nrp by 2 in ”u” and ”v M 

22 

TO 

WT5 

WT 

Operand for ”u” to temp 

23 

SP 

RA6 

17 

P.R. counter — "u" of A 

24 

EJ 

WT 

EF 

P.R. counter - operand? (i.e. oper. for 
"u" in "Q"?) 

25 

RJ 

EK25 

EK 

No, to 61_routine ("u" and "v" ent.) 

26 

TP 

FC36 

Q 

Mask for op. code— Q 

27 

QS 

CT10 

WT6 

Condition indicator to op. code temp 6 

30 

RJ 

ES 

ES12 

Advance D by 1 — next available add. in 
Exp. List 

31 

TV 

A 

EE 32 

Next available add. in Exp. List — "v" 
of NI 

32 

TP 

WT5 

[ 30000 ] 

Dummy storage instruction — Expanded List 

33 

RJ 

ES 

ES12 

Advance D by 1— next available add. in 
Exp. List 

34 

TV 

A 

EE 35 

Next available address in Exp. List — 

"v M of NI 

35 

TP 

WT6 

[ 30000 ] 

Indicator and s.s. word— Expanded List 

36 

MJ 

0 

ER 

Exit-to end redundancy phase 


CA 

EE 37 
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IA 

EF 


Storage Operator (continued) 

0 

RJ 

LA 

LA 6 

Store P.R. value in "A" list 

1 

RJ 


EK14 

To 61_routine (”v” ent.) 

2 

RA 

CT10 

FC7 

Adv. cond. ind. by 3 (oper. for "u" in 

3 

RJ 

LQ 

LQ7 

StoreP.R. value in M Q" List 

4 

MJ 

0 

EE26 


5 

RJ 

BR 

BR1 

Decrease/3 by 1 in "u" and "v” 

6 

TU 

RA 

EF7 

Address of s.s. for "v" — M u” of NI 

7 

TV 

[30000 D 

WT6 

s.s. at 0 — "v" of_temp 6 

10 

TP 

FC62 

CT10 

Set cond. ind.— Qj) in op. code ("u" 
non-subs and "v" 75_) 

11 

RA 

RA7 

FC25 

Advance Nrp by 4 in "u" and M v" 

12 

TV 

WT6 

WT1 

Subscript for "v" operand to temp 1 

13 

TP 

RA6 

A 

P.R. value— M v" of A 

14 

EJ 

WT1 

EF22 

P.R. counter = subscript? (s.s. for ”v' 
in "A”?) 

15 

TU 

WT5 

WT 

"u" operand to temp 0 

16 

SP 

RA6 

17 

P.R. value — "u" of A 

17 

EJ 

WT 

EF2 

"u" operand = P.R. counter? (oper. for 
"u" in "Q"?) 

20 

RJ 

EK25 

EK6 

To 61_routine ("u" ent.) 

21 

MJ 

0 

EE26 


22 

RJ 

EK25 

EK6 

To 61_routine ("u" ent.) 

23 

RA 

CT10 

FC6 

Adv. cond. ind. by 2 in op. code 

24 

RJ 

LA 

LA6 

Store P.R. value in "A" list 

25 

MJ 

0 

EE26 


26 

RJ 

BR 

BR1 

Decrease /3 by 1 in "u" and H v M 

27 

TU 

RA 

EF30 

Address of s.s. for "v M — "u” of NI 

30 

TV 

[30000 ] 

WT6 

s.s. at /3 -V of temp 6 

31 

TP 

FC11 

CT10 

Set cond. ind. — (B) ("u" non-subs and 
H v” 77_) 

32 

RA 

CT 

FC3 

Advance #rel. const. (Crc) by 1 in M u" 
and "v" 

33 

TV 

WT6 

WT1 

Subscript for "v" operand to temp 1 

34 

TP 

RA6 

A 

P.R. value — "v” of A 

35 

EJ 

WT1 

EF40 

Subscript = P.R. counter? (s.s. for ’V 
in "A"?) 

36 

RA 

RA7 

FC25 

Advance Nrp by 4 in "u” and "v" 

37 

MJ 

0 

EF15 


40 

RA 

RA7 

FC24 

Advance Nrp by 3 in "u" and "v" 

41 

MJ 

CA 

0 

EF42 

EF22 
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© 

© 

© 

© 

© 



IA 

EG 


Storage Operator (continued) 

0 

RJ 

BR 

BR1 

Decrease (3 by 1 in "u" and *V* 

1 

TU 

RA 

EG2 

Address of s.s.— "u" of NI 

2 

SP 

C30000 ] 

17 

s.s.— "u" of A 

3 

TP 

A 

WT6 

s. s. — **u H of temp 6 

4 

RJ 

BR 

BR1 

Decrease (3 by 1 in "u" and "v” 

5 

HJ 

RA 

EG6 

Add. of oper. for "v M — ”u" of NI 

6 

TV 

C30000 ] 

WT5 

Operand — M v" of temp 5 

7 

TV 

WT5 

WT1 

"v" operand to "v” of working temp 1 

10 

TP 

FC52 

A 

76777 —- "v" of A 

11 

TJ 

WT1 

EH23 

Operand for V> 76777? (i.e. 77___type) 

12 

TP 

FC76 

A 

74777 —"v” of A 

13 

TJ 

WT1 

EH 

"v M operand > 74777? (i.e. 76_type) 

14 

TU 

WT5 

WT 

"u" operand to temp 0 

15 

TP 

FC56 

A 

76777 'V of A 

16 

TJ 

WT 

EG22 

"u" operand > 76777? (i.e. 77_type) 

17 

TP 

FC 

CT10 

Zero to cond. ind. ( M u M 75_or 76___and 

”v M non-subs) 

20 

RA 

RA7 

FC26 

Adv. Nrp by 5 in "u" and w v" 

21 

MJ 

0 

EG25 

Set cond. Ind. — (g) in op. code ("u" 77... 

22 

TP 

FC6 

CT10 





and "v" non-subs.) 

23 

RA 

RA7 

FC25 

Adv. Nrp by 4 in ”u” and ”v M 

24 

RA 

CT 

FC3 

Adv. Crc by 1 

25 

RJ 

EK25 

EK14 

To 61_routine ("v" ent.) 

26 

TU 

WT6 

WT 

Subscript for "u" operand to temp 0 

27 

SP 

RA6 

17 

P.R. counter— A 

30 

EJ 

WT 

EG32 

Subscript = P.R. counter? (s.s. for M u" 
in ”A"?) 

31 

MJ 

0 

EE26 


32 

RA 

CT10 

FC5 

Adv. cond. ind by 1 in op. code (s.s. 
for "u" in A) 

33 

MJ 

0 

EF24 



CA 

EG34 
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IA 

EH 


Storage Operator (continued) 

© 

0 

RJ 

BR 

BR1 

Decrease/? by 1 in M u” and”v” 

i 

TO 

RA 

EH2 

Address of s.s.— "u” of NI 


2 

TV 

[30000 ] 

WT6 

s.s. — w v" of temp 6 

ftS4) 

3 

TO 

WT5 

WT 

”u" operand to ”u" of temp 0 

V - / 

4 

TP 

FC56 

A 

76777— "u" of A 


5 

TJ 

WT 

EH11 

"u” operand > 76777? (i.e. 77_type) 


6 

TP 

FC16 

CT10 

Set cond. ind. to 22 ("u” 75_or 76_ 

and rt v M 75_) 


7 

SA 

RA7 

FC121 

Adv. Nrp by 7 in "u M ana w v” 


10 

MJ 

0 

EH14 

Set cond. ind.— @ in op. eode("u" 77_. 
and H v H 75_) 

© 

11 

TP 

FC20 

CT10 


12 

RA 

RA7 

FC27 

Adv. Nrp by 6 in "u" and ”v M 


13 

RA 

CT 

FC3 

Adv. Crc by 1 in M u M and "v" 

U36) 

14 

TO 

WT6 

WT 

Subscript for "u" to working temp 

__ / 

15 

SP 

RA6 

17 

P.R. counter — "u” of A 


16 

EJ 

WT 

EG32 

Subscript - P.R. counter? (s.s. for ”u" 
in M A”?) 

Subscript for M v” to working temp 

© 

17 

TV 

WT6 

WT1 

N —s 

20 

TP 

RA6 

A 

P.R. counter — "v” of A 


21 

EJ 

WT1 

EF23 

Subscript - P.R. counter? (s.s. for "v" 
in "A”?) 

S "N. 

22 

MJ 

0 

EE26 


C 138 ) 

23 

RJ 

BR 

BR1 

Decrease (3 by 1 in "u" and "v" 

v_y 

24 

TO 

RA 

EH25 

Add. of s.s.—* "u" of NI 


25 

TV 

[30000] 

WT6 

Subscript to w v H of temp 6 


26 

TO 

WT5 

WT 

"u" operand to working temp 


27 

TP 

FC56 

A 

76777 -V of A 


30 

TJ 

WT 

EH34 

"u" operand > 76777? (i.e. 77_type) 


31 

TP 

FC17 

CT10 

Set cond. ind. to 25 ( M u" 75_or 76_ 

and "v" 77_) 


32 

RA 

RA7 

FC27 

Adv. Nrp by 6 in ”u M and M v” 

(D 

33 

34 

MJ 

TP 

0 

FC14 

EH36 

CT10 

Set cond. ind.— © in op. code (”u M 
and "v” 77_) 


35 

RA 

RA7 

FC26 

Adv. Nrp by 5 in "u” and ”v” 

(140) 

36 

RA 

CT 

FC1 

Adv. Crc by 1 in "u" and w v" 


37 

MJ 

0 

EH14 




CA 

EH40 
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0 

IA 

RJ 

VC 

BR 

BR1 

Subroutine to Check Variables 
Decrease# by 1 in "u M and "v" 

1 

TU 

RA 

VC3 

Address of 1st operand— "u" of TV 

2 

TP 

FC76 

A 

74777— "v" of A 

3 

TV 

[30000 ] 

WT1 

Operand— "v" of working temp 

4 

TJ 

WT1 

VC24 

1st operand > 74777? (i.e. subscripted?) 

5 

RJ 

BR 

BR1 

Decrease # by 1 in "u” and "v H 

6 

TU 

RA 

VC7 

Address of second operand— ”u" of NI 

7 

SP 

[30000] 

17 

2nd operand — "u M of A 

10 

TU 

A 

WT 

2 nd operand — "u" of working temp 

11 

TU 

A 

WT5 

2nd operand — "u" of temp 5 

12 

TP 

FC54 

A 

74777— "u M of A 

13 

TJ 

WT 

VC16 

2nd operand > 74777? (i.e. subscripted?) 

14 

TP 

FC 

Q 

CQ 35 = 0 ) no subscript word 

15 

MJ 

0 

VC46 

16 

RJ 

BR 

BR1 

Decrease # by 1 in "u" and "v" 

17 

TU 

RA 

VC20 

Address of s.s. for oper. in "u”— "u" 

20 

SP 

[30000 ] 

17 

of NI 

s.s. for oper. in M u H — "u” of A 

21 

TP 

A 

WT 6 

s.s. — "u" of temp. 6 

22 

TV 

RC 6 

PN 

Set switch (h) to @) t "u” subs and "v" 

23 

MJ 

0 

VC45 

non-subs 

24 

RJ 

BR 

BR1 

Decrease # by 1 in "u" and "v" 

25 

TU 

RA 

VC26 

Address of s.s. for oper. in M v”— ”u H 

26 

TP 

[30000D 

WT 6 

of NI 

s.s.— "v" of temp 6 

27 

RJ 

BR 

BR1 

Decrease# by 1 in "u M and "v M 

30 

TU 

RA 

VC31 

Address of 2nd operand — "u" of NI 

31 

SP 

[30000 ] 

17 

2nd operand — M u” of A 

32 

TU 

A 

wr 

2 nd operand — "u M of working temp 

33 

TU 

A 

WT5 

2nd operand — ”u" of temp 5 

34 

TP 

FC54 

A 

74777- H u" of A 

35 

TJ 

WT 

VC40 

2 nd operand > 74777? 

36 

TV 

RC 

PN 

Set switch (5) to @, "u" non-subs and 

37 

MJ 

0 

VC45 

"v" subs 

40 

RJ 

BR 

BR1 

Decrease # by 1 in "u" and H v” 

41 

TU 

RA 

VC42 

Address of s.s. for oper. in M u”— ”u” 

42 

SP 

C 30000 1 

17 

of NI 

s.s. for oper. in ”u”— "u" of A 

43 

TU 

A 

WT 6 

s.s.— V of temp 6 

44 

TV 

RC 1 

PN 

Set switch (5) to (HI), "u" non-subs and 

45 

TP 

FC36 

Q 

"v" subs 

(Q 35 = 1) subscript word 

46 

TV 

WT1 

WT5 

Operand— "v" of dummy inst. 

47 

TP 

WT5 

A 

Dummy inst. w/operands — A 

50 

MJ 

0 

[300001 

Exit 


CA 

VC51 




1332 



Subroutine to Sort Operands 


(l47) 0 

IA 

RJ 

VS 

BR 

BR1 

for Floating Plus or Multiply 

Decrease £ by 1 in "u" and "v" 

^ 1 

TU 

RA 

VS2 

Address of 1st operand — "u" of NI 

2 

TP 

[30000 I 

Q 

First operand— Q 

3 

TP 

FC76 

A 

74777— "v" of A 

4 

TJ 

Q 

VS31 

First operand > 74777? (i.e. subscripted) 

5 

RJ 

BR 

BR1 

Decrease/3 by 1 in "u" and ”v M 

6 

TU 

RA 

VS7 

Address of 2nd operand — ”u" of NI 

7 

TP 

[30000 I 

A 

Second operand—A 

10 

TJ 

Q 

VS25 

First operand > second operand? 

Q48J 11 

LQ 

Q 

17 

First operand — "u" of Q 

12 

AT 

Q 

WT5 

Operands — "u" and 'V* of temp 5 

13 

TV 

WT5 

WT1 

Second operand — ”v‘* of working temp 

14 

TP 

FC76 

A 

74777 — A 

\ 15 

TJ 

WT1 

VS20 

Second operand > 74777? (i.e. subscripted) 

(150) 16 

TP 

FC 

Q 

(Q 35 = 0) no subscript word 

17 

MJ 

0 

VS64 

20 

RJ 

BR 

BR1 

Decrease/3 by 1 in "u" and M v" 

21 

TU 

RA 

VS22 

Address of s.s. for oper. in "v M — H u" 

22 

TP 

[30000 ] 

WT 6 

of NI 

s.s. for oper. in "v"— ”v" of temp 6 

148^ 23 

TV 

RC 

PN 

Set (h) to @ "u” non-subs and "v" 

24 

MJ 

0 

VS63 

subscripted 

(149) 25 

TV 

A 

WT1 

Second operand — "v” of working temp 

^ 26 

LA 

A 

17 

Second operand— "u" of A 

27 

AT 

Q 

WT5 

Operands — "u" and H v M of temp 5 

/Ov 30 

MJ 

0 

VS16 


(151) 31 

RJ 

BR 

BR1 

Decrease £ by 1 in ”u" and ”v" 

32 

TU 

RA 

VS33 

Address of s.s. for first oper.-» "u" of 

NI 

s.s.— V of temp 6 

/^\ 33 

TP 

[30000] 

WT 6 

(152) 34 

RJ 

BR 

BR1 

Decrease /3 by 1 in "u" and "v" 

35 

TU 

RA 

VS36 

Address of second operand — ”u” of NI 

36 

TP 

[30000J 

A 

Second operand— A 

37 

TJ 

Q 

VS50 

First operand > second operand? 

40 

LQ 

Q 

17 

First operand — "u" of Q 

41 

AT 

Q 

WT5 

Operands — "u" and "v" of temp 5 

42 

RJ 

BR 

BR1 

Decrease @ by 1 in ”u" and "v" 

43 

TU 

RA 

VS45 

Address of second s.s. — "u" of TV 

44 

LA 

WT 6 

17 

First s.s.— ”u M of temp 6 

(153) 45 

TV 

[30000] 

WT 6 

Second s.s.— "v" of temp 6 

W 46 

TV 

RC1 

PN 

Set (h) to @ "u” and "v" subscripted 

^ 47 

MJ 

0 

VS63 

(154) 50 

TV 

A 

WT1 

Second oper. — ”v” of working temp 

51 

LA 

A 

17 

Second operand — ”u” of A 

52 

AT 

Q 

WT5 

Operands— "u" and M v M of temp 5 

53 

TP 

FC76 

A 

74777 - "v" of A 
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54 

TJ 

WT1 

VS56 

Oper. in M u” (2nd oper.) > 74777? (i.e. 
subscripted) 

55 

MJ 

0 

VS23 


56 

RJ 

BR 

BR1 

Decrease £ by 1 in "u M and "v" 

57 

TO 

RA 

VS60 

Address of s.s. for oper. in ”u”— "u" 
of NI 

60 

SP 

[ 30000 ] 

17 

s.s. for 2nd oper. — "u" of A 

61 

TO 

A 

WT 6 

s.s. for 2 nd oper. — ”u" of temp 6 

62 

TV 

RC1 

PN 

Set (5) to (Hi) "u" and 'V subscripted 

63 

TP 

FC36 

Q 

(Q 35 =1) subscript word 

64 

MJ 

0 

[Exit] 


CA 

VS65 
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IA 

PN 


© 

A 

\J 

MJ 

A 

\J 

[30000 ] 

1 

TU 

WT5 

WT 

2 

TP 

FC56 

A 


3 

TJ 

WT 

PN21 


4 

TV 

WT5 

WT1 


5 

TP 

FC52 

A 

! i 

6 

TJ 

WT1 

PN12 

■ i 
m in 





h- r- 

- - j 

r 7 

TP 

FC16 

CT10 

*=s *> < 

! 




5 r 1 

I 10 

RA 

RA7 

FC27 


L 11 

MJ 

0 

PN66 

658) 

<12 

TP 

FC17 

CT10 


13 

RA 

CT 

FC3 

JJ© , 

14 

MJ 

0 

[30000 ] 

15 

RA 

RA7 

FC27 

r- h- s 

16 

MJ 

0 

PN66 

y>@ 

1 17 

RA 

RA7 

FC26 


l 20 

MJ 

0 

PN66 

( 159 ) 

21 

TV 

WT5 

WT1 


22 

TP 

FC52 

A 


23 

TJ 

WT1 

PN30 

1 ! 

f 24 

TP 

FC20 

CT10 

! 1 1 
h- m 

25 

RA 

CT 

FC3 

h- r- j 





"is *> 

I 26 

RA 

RA7 

FC26 

= 5 /^\ 

V27 

MJ 

0 

PN66 

- .^ 6 °) 

/ 30 

TP 

FC14 

CT10 


31 

RA 

CT 

FC3 

h-' h-' < 

1 




h- h- ' 

1 





32 

RA 

RA7 

FC25 


> 33 

MJ 

0 

PN66 


34 

TV 

WT5 

WT1 

• 

V) 

35 

TP 

FC52 

A 

-Q 

w 1 

36 

TJ 

WT1 

PN42 

if© , 

r 37 

TP 

FC62 

CT10 


I 40 

RA 

RA7 

FC24 


Ui 

MJ 

0 

PN72 


f 42 

TP 

FC11 

CT10 


43 

RA 

CT 

FC3 


Set Condition Indicator for 
Floating Point Operations 

Switch 

76777 — "u" of A 

Is V of dummy inst. 77... ? yes; take 
"v" 

No 

76777— "v" of A 

Is "v" of dummy inst. 77___? yes; take 
"v" 

No; set condition indicator to 22 in op. 
code 

Advance Nrp by six in "u" and ”v M 

Set cond. ind.— 25 in op. code 
Advance #rel. const (Crc) by 1 in ”u M 
and H v M 
Switch (G) 

@ - advance Nrp by six in "u" and "v” 

@ - advance Nrp by five in M u" and ”v M 

Oper. in "v” of dummy inst.— working 
temp 

76777- "v" of A 

Is ”v” of dummy inst 77___ ? yes; take ”v M 
Set cond. ind.— 30 in op. code 
Advance #rel. const. (Crc) by 1 in M u” 
and "v" 

Advance Nrp by six in ”u" and "v” 

Set cond. ind.— 17 in op. code 
Advance #rel. const. (Crc) by 1 in "u" 
and "v" 

Advance Nrp by four in "u" and ”v" 

@ - oper. in "v" of dummy inst. to 
temp 1 

76777- "v" of A 

Is "v" of dummy inst. 77--? yes; take 
" V " 

No; set condition indicator to 11 in op. 
code 

Advance Nrp by three in M u M and "v" 

Set cond. ind.— 5 in op. code 
Advance #rel. const. (Crc) by 1 in *V* 
and "v” 
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77 "u" 75_ "u" non-subs. 

non-subs. "v M non-subs, "v" 77— 



44 

MJ 

0 

(jl) < 

45 

RA 

RA7 


46 

MJ 

0 

(j2) 

47 

RA 

RA7 


k 50 

MJ 

0 

C H3 ) 

51 

TU 

WT5 


52 

TP 

FC56 


53 

TJ 

WT 


r 54 

TP 

FC 

^62) < 

55 

RA 

RA7 


L 56 

MJ 

0 

(l63) 

r 57 

TP 

FC6 


60 

RA 

CT 


C30000] 

FC24 

PN72 

FC4 

PN72 

WT 

A 

PN57 

CT10 

FC25 

PN65 

CT10 

FC3 



61 

MJ 

0 

[30000] 

( M1 ) 

62 

RA 

RA7 

FC24 

M < 

63 

MJ 

0 

PN65 

xM2y 

l 64 

RA 

RA7 

FC25 


65 

RJ 

EK25 

EK14 


66 

SP 

SR23 

17 


67 

TU 

A 

PN70 


70 

RA 

[30000 ] 

CT10 


71 

MJ 

0 

SS 

(l66) 

72 

RJ 

EK25 

EK6 


73 

MJ 

0 

PN66 

(M3) 

74 

RA 

RA7 

FC24 


75 

MJ 

0 

PN66 



CA 

PN76 



Switch (j) 

Advance Nrp by 3 in "u” and "v" 

Advance Nrp by 2 in "u" and "v" 

@ - ”u M operand to working temp 
76777— "u" of A 

Is "u" of dummy inst. 77_? 

Set cond. ind. —zero in op. code 
Advance Nrp by four in ”u” and "v M 

Set cond. ind.— 2 in op. code 
Advance #rel. const. (Crc) by 1 in "u" 
and "v" 

Switch (m) 

-advance Nrp by three in "u" and "v M 

@ -advance Nrp by four in "u" and "v” 

To 61_routine (”v” ent.) 

Address of word following dummy inst. 

"u” of A 

Add. of word following dummy inst.— "u" 
of NI 

Advance indicator following dummy inst. 
by cond. ind. 

To 61_routine ("u” ent.) 

@ -advance Nrp by 3 in "u" and "v M 
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operand for 

A ti it • . _ 








Subroutine to Check for Redundant 


0 

IA 

RJ 

RR 

ES 

ESI 

Floating Point Operation 

Search Expanded List for Dummy inst. 

1 

SJ 

RR6 

RR2 

Is instruction redundant? No; to RR6 

2 

TO 

A 

RR4 

Address of s.s. word in Expanded List 

3 

TP 

FC35 

Q 

-J'u" of QT 

4 

QT 

C 30000 ] 

A 

Subscript word from Expanded List— A 

5 

EJ 

WT6 

RR47 

Is subscript word in temp 6 redundant? 

6 

RJ 

ES 

ES12 

1 r x . nn A 

les; to tut?! 

No, advance dummy tally by one 

7 

TV 

A 

RR10 

Available address in Exp. List — "v" of 

10 

TP 

WT5 

[30000 3 

NI 

Dummy instruction to Expanded List 

11 

RJ 

ES 

ES12 

Advance dummy tally by one 

12 

TV 

A 

RR13 

Available address in Exp. List—"v" of 

13 

TP 

WT6 

[30000] 

NI 

Subscript word to Expanded List 

14 

TV 

RR10 

WT4 

Address of dummy instruction to "v" of 

15 

TV 

RC3 

PN14 

temp 

Set switch © to @ 

16 

TV 

RC4 

PN44 

Set switch © to 0) 

17 

SP 

RA6 

17 

P.R. counter — "u M of A 

20 

TO 

WT5 

WT 

”u M of dummy inst.— working temp. 

21 

EJ 

WT 

RR23 

Is P.R. counter - "u" operand? (oper. for 

22 

MJ 

0 

[30000 1 

"u" in Q) 

Exit - subscript word 

23 

TP 

FC7 

CT10 

Set cond. ind.— 3 in op. code (oper. for 

24 

MJ 

0 

RR43 

"u” in Q) 

25 

RJ 

ES 

ESI 

Search Expanded List for dummy instruction 

26 

SJ 

RR27 

RR50 

Is instruction redundant? yes; to RR50 

27 

RJ 

ES 

ES12 

No, advance dummy tally by one 

30 

TV 

RA5 

RR32 

Available address in Exp. List— "v” of 

31 

TV 

RA5 

WT4 

TP 

Address of dummy inst. — ’V of temp. 

32 

TP 

WT5 

[30000 3 

Dummy instruction to Expanded List 

33 

RA 

RA7 

FC3 

Advance Nrp by one in "u" and ”v" 

34 

TP 

FC13 

CT10 

Set cond. ind.— 12 in op. code (neither 

35 

SP 

RA6 

17 

"u” nor "v" subs) 

P.R. counter — "u" of A 

36 

TO 

WT5 

WT 

"u” of dummy inst. to working temp 

Set switch (5) —(T) 

37 

TV 

RC7 

PN 

40 

EJ 

WT 

RR55 

P.R. counter = ”u” operand? (oper. for 

41 

RJ 

EK25 

EK 

"u" in "Q") 

To 6l___ routine ("u M and w v" ent.) 

42 

MJ 

0 

[30000 3 

Exit - no subscript word 

43 

RJ 

LQ 

LQ7 

Enter P.R. value in Q List 

44 

TP 

FC3 

CT7 

Set increment (I) — one in "u" and "v M 
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redundant instruction 



45 

RJ 

SR25 

SR11 

1.46 

MJ 

0 

PN 

r 47 

RA 

RR4 

FC2 

50 

RJ 

RS 

RSI 

* 51 

SJ 

RR52 

SS 

52 

TP 

WT1 

A 

53 

RJ 

LQ 

LQ1 

l 54 

MJ 

0 

SS 

55 

RA 

CT10 

FC7 

56 

RJ 

EK25 

EK14 

57 

MJ 

0 

RR43 


CA 

RR60 



P.R. value— Oper. List ($) and Exp. List 
y ; cond. ind.—Exp. List 
Go to ® (prediction routine) 

Address of redundant P.R. value— "u" of 
A 

Redundant P.R. value—Oper. List and 

Red. P.R. List 

Was redundant P.R. in List? 

Redundant P.R.— A 

Was redundant P.R. in Q List? 

Adv. cond. ind. by 3 in op. code (oper. 
for "u" in Q-set ind— fi) ) 

To 61_ routine ("v" ent.7 
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Subroutine to Store Redundant 



IA 

RS 


Partial Result 

0 

MJ 

0 

[30000 ] 

Exit 

1 

TU 

A 

RS2 

Address of redundant P.R. value—"u M of 
NI 

2 

TV 

[30000 ] 

WT1 

Redundant P.R.— "v" of working temp 

3 

TV 

RA 

RS4 

Available address in Operand List — ”v M 
of NI 

4 

TP 

WT1 

[30000 ] 

Redundant P.R. value — Operand List (j3) 

5 

RJ 

BR 

BR4 

Advance address in Operand List (/?) by 1 
in ”u” and "v" 

6 

TP 

WT1 

A 

Redundant P.R.— A 

7 

TO 

RA10 

RS10 

Length of redundant P.R. List— jn of 
repeat 

10 

RP 

[30000 J 

RS12 

Search Redundant P.R. List 

11 

EJ 

RL 

RS24 

Is P.R. in "A" in Redundant P.R.List? 

12 

TV 

RA10 

RS13 

No; available address in Redundant P.R. 
List- "v" of NI 

13 

TP 

A 

[30000 ] 

Redundant P.R.— redundant P.R. List 

14 

RA 

RA10 

FC3 

Advance available add. and jn for Red. 
P.R. List by one 

15 

TJ 

LV1 

RS22 

Redundant P.R. List too long? 

16 

RJ 

WA 

WA1 

Sent. # — print out 

17 

TP 

TO 

UP3 

Codeword — alarm print 

20 

RJ 

UP2 

UP 

Alarm-Red. P.R. List too long [ type: SEN¬ 
TENCE TOO LONG J 

21 

MJ 

0 

BQ6 

Rewind tapes 

22 

TP 

FC36 

A 

Set (A) — Red. P.R. was not in list (A-) 

23 

MJ 

0 

RS 


24 

TP 

FC 

A 

Set (A)— Red. P.R. was in list (A+) 

25 

MJ 

0 

RS 



CA 

RS26 


Subroutine to Sort Operands for 


IA 

OS 


Fixed Plus or Multiply 

0 

RJ 

BR 

BR1 

Decrease address in Operand List (/3) by 

1 in "u" and "v" 

1 

TU 

RA 

0S4 

Address of first operand — TP 

2 

RJ 

BR 

BR1 

Decrease address in Operand List (/?) by 

1 in "u M and "v" 

3 

TU 

RA 

0S5 

Address of second operand — TP 

4 

TP 

C 30000 1 

A 

First operand— A 

5 

TP 

i 30000 ] 

Q 

Second operand — Q 

6 

TJ 

Q 

0S1I 

Operand at Q > operand at A 

7 

LQ 

Q 

17 

Shift operand in Q— "u" of Q 

10 

MJ 

0 

0S12 


11 

LA 

A 

17 

Shift operand in A— "u” of A 

12 

SA 

Q 

0 

Operands— "u" and M v M of A 

13 

MJ 

0 

[30000] 



CA 

0S14 
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Advance P Decrease 


ca 


Subroutine to Store Callword in 



IA 

FS 


Op. File 1 

0 

MJ 

0 

C 30000 ] 

Exit 

1 

SP 

A 

17 

Callword — ”u" of A 

2 

TU 

RA1 

FS3 

Length Op. File 1— jn of repeat 

3 

RP 

C 30000 ] 

FS5 

Search Op, File 1 for callword 

4 

EJ 

FL2 

FS 

Callword in Op. File 1? no to FS5 

5 

TV 

RA1 

FS6 

Available address in Op. File 1— "v" of 
NX 

6 

TP 

A 

C 30000 ] 

Store callword in Op. File 1 

7 

RA 

FL 

FC1 

Adv. Slines this Op. File 1 item by one 

10 

RA 

RA1 

FC3 

Adv. available add. and jn for Op. File 

1 by one 

11 

TJ 

LV2 

FS 

Op. File 1 too long? 

12 

RJ 

WA 

WA1 

Sent. * — print out 

13 

TP 

TO 

UP3 

Codeword — alarm print 

14 

RJ 

UP2 

UP 

Alarm-Op. File 1 too long [ type: SEN¬ 
TENCE TOO LONG. ] 

15 

MJ 

0 

BQ6 

Rewind tapes 


CA 

FS16 




Subroutine 

to Advance or Decrease Available Address 



IA 

BR 


in Operand List (Beta Routine) 

0 

MJ 

0 

C30000 3 

Exit 

r 

RS 

RA 

FC3 

Decrease address in Operand List ( j3 ) by 

1 in M u H and "v" 

2 

TJ 

IA 

EP4 

Init. add. Oper. List > current add.? 

Yes — alarm #4 

^ 3 

MJ 

0 

BR 

No; to exit 

r 4 

RA 

RA 

FC3 

Adv. address in Oper. List (/?) by 1 in 
"u” and "v" 

5 

TJ 

LV 

BR 

Max. address in Oper. List> current add¬ 
ress? 

6 

RJ 

WA 

WA1 

Yes; type sentence number 

7 

TP 

TO 

UP3 

Code word— alarm print 

10 

RJ 

UP2 

UP 

Alarm-too many operands [type: SENTENCE 
TOO LONG. ] 


MJ 

0 

BQ6 

Rewind tapes and stop 


CA 

BR12 
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Subroutine to Search for or Store 


m 

C/3 



IA 

LQ 


Partial Result Symbol in "Q" List 

sib® 


0 

1 

MJ 

TU 

0 

RA2 

[ 30000 
LQ2 

] Exit , .. 

Ent. - for search "Q” List (mifiui.mSlt^y) 

£ 


2 

RP 

[30000 ] 

LQ4 

Search "Q" List 

O' »*a 


3 

EJ 

XQ 

LQ5 

Is redundant P.R. in "Q" List 

P « > 

JS CD« 


4 

MJ 

0 

LQ22 


O P 

Vi P 


5 

RA 

RA7 

FC3 

Advance Nrp by one in "u" and "v" 

CD H3 

CD <wg ^—\ 

V 

6 

MJ 

0 

LQ 


1/5 w (182) 


7 

TV 

RA2 

LQ10 

Ent. - for store in "Q" List 

V_/ 


10 

TP 

RA6 

C 30000 

3 Enter P.R. in "Q M List 



11 

RA 

RA2 

FC3 

Adv. jn and add. in "Q" List by one in 







"u” and "v" 

s 


12 

TJ 

LV3 

LQ 

”Q" List too long 


13 

RJ 

WA 

WA1 

Sent. * — print out 

•H 

P 


14 

TP 

TO 

UP3 

Codeword — alarm print 

CD W 

Vi P. 


15 

RJ 

UP2 

UP 

Alarm - "Q" List too long [type: SENTENCE 

O P 

P 






TOO LONG.] 

C/3 

® 

L 

? 

16 

17 

MJ 

TO 

0 

RA2 

BQ6 

LQ20 

Ent. - for search ”Q" List (fl. neg and 
abs. val.) 



20 

RP 

[30000 ] 

SS 

Search "Q" List (exit to sym. search if 

3 < 






Red. P.R. not in "Q” List) 

CO 

p > 


21 

EJ 

XQ 

LQ 

Is red. P.R. in "Q" List (return exit - 

•H • 






red. P.R. in "Q" List) 

_J w 
-Q 


22 

EJ 

RA6 

LQ24 

Redundant P.R. = P.R. counter? 

r cd 

Q'cii) 

23 

MJ 

0 

SS 


» • 

05 


24 

RA 

RA7 

FC3 

Adv. Nrp by one in "u" and ”v H 

JS 0) 

o c 


25 

TP 

FC 

CT7 

Set increment (I) to zero 

V 

CD • 


26 

MJ 

0 

SS 


<V P 

C/3 «H 



CA 

LQ27 
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Store in "A" list search "A" list 




Subroutine to Search for or Store 



IA 

LA 


Partial Result Symbol in "A" List 

( 0 

MJ 

0 

[300001 

Exit 

1 

TU 

RA3 

LA 2 

Ent.-for search "A" List 

J 2 

RP 

C 30000 1 

LA16 

Search "A M List 

1 3 

EJ 

XA 

LA 4 

Is redundant P.R. in "A" List? 

4 

RA 

RA7 

FC3 

Advance Nrp by one in "u" and "v" 

l 5 

MJ 

0 

LA 


r 6 

TV 

RA3 

LA7 

Ent.-for store in "A" List 

7 

TP 

RA6 

[300001 

Enter P.R. in "A" List 

10 

RA 

RA3 

FC3 

Adv. jn and add. in "A” List by one in 
"u" and "v" 

J 11 

TJ 

LV4 

LA 

"A” List too long? 

12 

RJ 

WA 

WA1 

Sent, # - print out 

13 

TP 

TO 

UP3 

Codeword-* alarm print 

14 

RJ 

UP2 

UP 

Alarm-”A M List too long [type: SENTENCE 
TOO LONG.] 

M5 

MJ 

0 

BQ6 

Rewind tapes and stop 

16 

EJ 

RA6 

LA20 

Redundant P.R, = P.R. counter? 

17 

MJ 

0 

LA 

No 

20 

RA 

RA7 

FC3 

Adv. Nrp by 1 in ”u" and "v" 

21 

TP 

FC 

CT7 

Set increment (I) to Zero 

22 

MJ 

0 

LA 



CA 

LA23 
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Advance dummy tally Search Exp, List 


*Note: Sent, callword from sorted list— first word in Exp. List 
Sent, number from sorted list— second word in Exp. List 



IA ES 

0 MJ 0 C 30000 ] 

1 TU RA4 ES2 

2 RP C 30000] ES10 

3 EJ EL2 ES4 



Q 


din 

Q 

1 1 

SA 

ES2 

0 

SA 

ES3 

0 

MJ 

0 

ES 

TP 

FC36 

A 

MJ 

0 

ES 

RA 

RA5 

FC3 

TJ 

LV5 

ES 

RJ 

WA 

WA1 

TP 

TO 

UPS 

RJ 

UP2 

UP 

MJ 

0 

BQ6 

CA 

ES20 



Input-dummy inst. in A 
Subroutine to Search for Dummy Instruc¬ 
tion or Advance Dummy Tally in Exp. List 
Exit 

jn for repeat — NI 
Search Expanded List 
Dummy inst = prev. entry in Exp. List? 
yes; to ES4 
-jn+r — ”u !! of A 
+r — "u” of A 
EL+r — "u" of A 

Equality not met indicator— A (i.e. Aji 
= 1 ) 

Adv. dummy tally for Exp. List by 1 in 
"u" and "v" 

Expanded List too long? no; to exit 

Yes; type sentence number 

Codeword— alarm print 

Alarm-Exp. List too long [type: SENTENCE 

TOO LONG.] 

Rewind tapes and stop 



IA DS Dimension List Search 

0 MJ 0 [30000 ] Exit 

1 RP [30000] EP1 Search Dimension List (preset from f^,) 

2 EJ DL DS3 Callword in Dimension List? Alarm #1 if 

no. 

3 SN Q 17 Yes; -jn+r— "u" of A 

4 SA DS1 0 +r — "u" of A 

5 SA DS2 0 DL+r — M u" of A 

6 MJ 0 DS 

CA DS7 
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Subroutine to Decrease and Check 


0 

IA 

RS 

PR 

RA6 

FC1 

Partial Result Counter 

Decrease partial result counter to new 

1 

TJ 

LV6 

PR3 

P.R. symbol 

Has P.R. counter reached minimum value? 

2 

MJ 

0 

[30000 ] 

"v" if yes 

No; to exit 

3 

RJ 

WA 

WA1 

Yes; type sentence number 

4 

TP 

TO 

UP3 

Codeword — alarm print 

5 

RJ 

UP2 

UP 

Alarm-P.R. counter below minimum [type: 

6 

MJ 

0 

BQ6 

SENTENCE TOO LONG] 

0 

CA 

IA 

TP 

PR7 

EK 

FC77 

Q 

Subroutine to Check for 61_Type 

Operands in Dummy Instruction 

Mask — Q 

1 

QT 

WT5 

A 

First two octal digits of ”u” and "v" 

2 

EJ 

FC100 

EK23 

operands to "A" 

M u” and "v" operands = 61_type? yes; 

3 

TP 

FC104 

Q 

take "v" 

Mask for first two octal digits of "v" 

4 

QT 

WT5 

A 

— 0 

First 2 octal digits of M v" operand to 

"A »» 

5 

EJ 

FC102 

EK20 

M v w operand - 61_type? yes; take ”v M 

6 

TP 

FC103 

0 

Mask for first two octal digits of "u" 

7 

QT 

WT5 

A 

to "Q" 

10 

EJ 

FC101 

EK12 

"u” operand - 61_type? yes; take "v" 

11 

MJ 

0 

EK25 

To exit 

12 

RA 

CT10 

FC115 

Adv. cond ind. by 33 in op. code 

13 

MJ 

0 

EK21 


14 

TP 

FC104 

Q 

Mask for first two octal digits of "v" 

15 

QT 

WT5 

A 

to ”Q" 

First 2 octal digits of ’V operand to 

MAM 

16 

EJ 

FC102 

EK12 

M 

H v M operand = 61_type? yes; take "v M 

17 

MJ 

0 

EK25 

To exit 

20 

RA 

CT10 

FC105 

Adv. cond. ind. by 35 in op. code 

21 

RA 

RA7 

FC3 

Adv. Nrp by 1 in "u M and "v" 

22 

MJ 

0 

EK25 

To exit 

23 

RA 

RA7 

FC4 

Adv. Nrp by 2 in "u" and "v" 

24 

RA 

CT10 

FC106 

Adv. cond. ind. by 31 in op. code 

25 

MJ 

0 

[30000] 

Exit 


CA 

EK26 
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Subroutine 

to Enter Current Partial Result Symbol 




IA 

PP 


in Expanded List and Operand List 

© 

0 

RJ 

ES 

ES12 

Advance dummy tally (D) by 1 in M u’* and 

V 

Sety =D (advanceyto add Dummy List to 


1 

TP 

RA5 

RA4 

Exp. List) 


2 

RJ 

PR2 

PR 

Decrease P.R. counter — new partial re¬ 
sult (P.R. in A) 


3 

TV 

RA 

PP4 

Available address in Operand List (/?) — 
"v" of NI 

(lQ7) 

4 

TP 

A 

C300003 

P.R. value — Operand List 

5 

TV 

RA4 

PP 6 

Next address in Exp. List — M v M of NI 

y 

6 

TP 

A 

C30000] 

P.R. value — Expanded List 


7 

RJ 

BR 

BR4 

Adv. add. in Operand List (/3) by 1 in 
"u" and "v" 


10 

MJ 

0 

C300003 




CA 

PP11 


Subroutine to Store 






Partial Result Symbol for Subscript Oper- 



IA 

SR 


ation in Expanded List and Operand List 

M 

0 

TV 

C 30000] WT1 

Last subscript — "v" of WT1 

V_ / 

1 

TP 

WT1 

A 

Last subscript —■ "v" of A 


2 

EJ 

RA 6 

SR7 

P.R. counter = last subscript (i„e. sub¬ 
script in A) 


3 

RA 

RA7 

FC3 

No, advance Nrp by one 

098A 

4 

5 

RA 

MJ 

RA7 

0 

CT7 

SR 11 

Advance Nrp by increment (I) 


6 

0 

C30000 1 [30000J 

Vacant 

A19<V 

7 

RA 

CT10 

FC5 

Set condition indicator — one (s.s. in A) 

\199$ 

10 

RJ 

LA 

LA 6 

Enter P.R. value in "A” list 

© 

11 

RJ 

ES 

ES12 

Advance dummy tally (D) by 1 in "u” and 
"v” to count P.R. 

( 203 ) 

12 

TP 

RA5 

RA4 

Sety - D (advanceyto add Dummy List to 
Exp. List) 

13 

RJ 

PR 2 

PR 

Decrease P.R. counter— new partial re¬ 
sult (P.R. in A) 



14 

TV 

RA 

SR15 

Available address in Operand List (/?) to 
”v M of NI 


15 

TP 

A 

C 30000 5 

P.R. value — Operand List 


16 

TV 

RA4 

SRI 7 

Next address in Expanded List— "v" of NI 


17 

TP 

A 

C 30000 3 

P.R. value — Expanded List 

( 202 ) 

20 

TV 

WT4 

SR23 

Dummy inst. address — ”v” of QT 

> — / 

21 

RA 

SR23 

FC 1 

Advance add. of QS — word following dum¬ 
my inst. 


22 

TP 

FC36 

Q 

Mask for op. code — Q 


23 

OS 

CT10 

[30000 3 

Condition indicator— op. code of word 
following dummy inst. 


24 

RJ 

BR 

BR4 

Advance address in Operand List (/?) by 1 
In "u M and "v” 


25 

MJ 

0 

C30000 ] 




CA 

SR26 
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Fixed Constants 



IA 

FC 


0 

0 

0 

0 

1 

0 

0 

1 

2 

0 

1 

0 

3 

0 

1 

1 

4 

0 

2 

2 

5 

1 

0 

0 

6 

2 

0 

0 

7 

3 

0 

0 

10 

4 

0 

0 

11 

5 

0 

0 

12 

10 

0 

0 

13 

12 

0 

0 

14 

17 

0 

0 

15 

20 

0 

0 

16 

22 

0 

0 

17 

25 

0 

0 

20 

30 

0 

0 

21 

40 

0 

0 

22 

70 

0 

0 

23 

0 

0 

2 

24 

0 

3 

3 

25 

0 

4 

4 

26 

0 

5 

5 

27 

0 

6 

6 

30 

0 

0 

7 

31 

0 

0 

10 

32 

0 

0 

77777 

33 

0 

77777 

0 

34 

0 

07777 

0 

35 

0 

77777 

77777 

36 

77 

0 

0 

37 

77 

0 

77777 


IA 

FC40 


40 

77 

77777 

0 

41 

07 

77777 

77777 

42 

07 

77000 

0 

43 

0 

0 

61000 

44 

0 

0 

62000 

45 

0 

0 

64000 

46 

0 

0 

70000 

47 

0 

0 

73000 

50 

0 

0 

73777 

51 

0 

0 

74000 

52 

0 

0 

76777 

53 

0 

0 

77000 

54 

0 

74777 

0 

55 

0 

74000 

0 

56 

0 

76777 

0 


Subscript for ”u" in A 
Subscript for M v H in A 
Operand for "u" in Q 
Operand for "v" in Q 
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57 

0 

0 

3 

60 

0 

0 

76000 

61 

0 

0 

75000 

62 

11 

0 

0 

63 

0 

r\ 

U 

*T 

i 

64 

0 

0 

50012 

65 

20 

14000 

0 

66 

0 

0 

50051 

67 

0 

0 

50022 

70 

6 

0 

0 

71 

0 

0 

31000 

72 

0 

31000 

0 

73 

0 

0 

700 

74 

0 

0 

77 

75 

37 

40000 

0 

76 

0 

0 

74777 

77 

0 

77000 

77000 


IA 

FC100 


100 

0 

61000 

61000 

101 

0 

61000 

0 

102 

0 

0 

61000 

103 

0 

77000 

0 

104 

0 

0 

77000 

105 

35 

0 

0 

106 

31 

0 

0 

107 

0 

01000 

01000 

110 

0 

20000 

20000 

111 

0 

0 

4 

112 

0 

0 

50000 

113 

MJ 

0 

0 

114 

77 

07777 

77777 

115 

33 

0 

0 

116 

0 

777 

777 

117 

0 

0 

16000 

120 

0 

0 

16100 

121 

0 

7 

7 

122 

77 

77777 

77776 


CA 

FC123 



General power library routine callword 
Floating point-one 
Square root library routine callword 
Int. where |y| >29 
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Op. Codes Contain Operation 



IA 

RC 


Symbols for Expanded List; 

Relative 

0 

0 

0 

PN34 


to 

set 

1 

37 

0 

PNI 

Subscript operator 

to 

set 

2 

52 

0 

PN15 

Floating subtract 

to 

set 

3 

54 

0 

PNI 7 

Floating divide 

to 

set 

4 

61 

0 

PN45 

Library operator 

to 

set 

5 

62 

0 

PN47 

Floating unary minus 

to 

set 

6 

64 

0 

PN51 

Floating absolute value 

to 

set 

7 

66 

0 

SS 

POW +2 

to 

set 

10 

67 

0 

PN62 

POW -2 

to 

set 

11 

70 

0 

PN64 

POW +3 

to 

set 

12 

71 

0 

LN2 

POW -3 

to 

set 

13 

72 

0 

LN 

POW l A 

to 

set 

14 

73 

0 

LN4 

POW 

to 

set 

15 

74 

0 

LN12 

POW (4 to 63) 

to 

set 

16 

75 

0 

RR50 

POW (-4 to -63) 

to 

set 

17 

76 

0 

IQ31 

POW -1 

to 

set 

20 

77 

0 

PN74 

Storage operator 

to 

set 

21 

41 

0 

0 

Floating plus 



22 

53 

0 

0 

Floating multiply 



23 

55 

0 

0 

Fixed plus 



24 

56 

0 

0 

Fixed subtract 



25 

57 

0 

0 

Fixed multiply 



26 

60 

0 

0 

Fixed divide 



27 

63 

0 

0 

Fixed unary minus 



30 

65 

0 

0 

Fixed absolute, value 



31 

0 

0 

S044 




32 

0 

0 

S054 





CA 

RC33 






df 

Cl 



IA 

TO 




Alarm Text 

0 

40 

T01 

3 




1 

65 

30506 

63050 

S E 

N T 

E N 

2 

26 

30016 

65151 

C E 

A T 

0 0 

3 

01 

46515 

03222 

A L 

0 N 

G . 


CA 

T04 
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IA 

IA 


To preset RA 

0 

0 

BL 

BL 

To preset RA1 

1 

0 

20000 

FL2 

To preset RA2 

2 

0 

20000 

XQ 

To preset RA3 

3 

0 

20000 

XA 

To preset RA4&RA 5 

4 

0 

20000 

ELI 

To preset RA 6 

5 

0 

0 

31000 

To preset RA7 

6 

0 

01001 

01001 

To preset RA 8 

7 

0 

20000 

RL 

To preset SS3 

10 

0 

SL3 

0 


11 

0 

EL2 

0 



CA 

IA12 



Initial Addresses 

!■3 initial (initial add. Operand List) 

Op. File 1 item (jn to search in "u" - 
init. cross ref. item in M v”) 

"Q M list (jn to search in "u" - init. 
add. "Q M List in M v") 

"A M list (jn to search in ”u M - init. 
add. "A” List in "v”) 

F.vn. 1 i s+ fin +n cpa rr»h in ”n M — init 

avail, add. -1 in M v”) 

Initial P.R. value in "v” +1 

Init. #lines in running prog +1000 in M u” 

and "v" (counts MJ exit) 

Red. P.R. List (jn to search in ”u M - 
init. add. in Red. P.R. List in H v") 
a initial (initial address in Sorted List) 
Init. add. in Exp. List +2 



IA 

LV 


Limiting Addresses for Lists, etc. 

0 

0 

BL177 

BL177 

Max. address in Oper. List in "u" and 
"v" (max. jS ) 

1 

0 

20077 

RL77 

Max. jn in "u" and max. address in M v" 
for redundant P.R. List 

2 

0 

20175 

FL177 

Max. jn in "u" and max. address in M v" 
for Op. File 1 item 

3 

0 

20177 

XQ177 

Max jn in M u"‘ and max. address in "v M 
for "Q" List 

4 

0 

20177 

XA177 

Max. jn in "u" and max. address in "v” 
for "A" List 

5 

0 

20675 

EL677 

Max. jn in "u" and max. address in M v" 
for Expanded List 

6 

0 

0 

30000 

Minimum P.R. value in "v M 

7 

0 

02002 

02002 

Max. #lines object prog, body (incl. jump 
to exit) +1001 

10 

0 

0 

62000 

Dummy callword for function input region 

11 

0 

0 

63000 

Dummy callword for pseudo operation in¬ 
put region 


CA 

LV12 
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Subroutine to Store in List 1, Callword 
of Library Routine and if Fixed Library 



IA 

LS 


Routine, Callwords of its Cross-references 

0 

MJ 

0 

[30000 ] 


1 

TU 

LS26 

LSI 3 


2 

TP 

FC 

CT13 

Zero— index C 3 

3 

EJ 

LS25 

LS11 

Callword = 50012? yes; to LS11 

4 

EJ 

LS21 

LS12 

Callword = 50022? yes; to LS12 

5 

RP 

20003 

LS14 

Callword = 50031, 50041. or 50051? 

6 

EJ 

LS22 

LS7 

Yes; to LS7 

7 

RJ 

LR 

LR1 

50031, 50041, or 50051 callword to List 1 

10 

MJ 

0 

LSI 3 

50002 callword to list 1 

11 

RA 

CT13 

FC23 

Advance index by 2 in ”v" 

12 

RA 

CT13 

FC57 

Advance index by 3 in "v" 

13 

TP 

[30000] 

A 

Callword — A 

14 

RJ 

LR 

LR1 

Callword to list 1 

15 

RA 

LSI 3 

FC2 

Advance by 1 in "u" to address of next 
callword 

16 

IJ 

CT13 

LSI 3 

More callwords to store in list 1? yes; 
to LSI 3 

17 

MJ 

0 

LS 

No; to exit 

20 

0 

50002 

0 


21 

0 

50022 

0 


22 

0 

50031 

0 


23 

0 

50041 

0 


24 

0 

50051 

0 


25 

0 

50012 

0 


26 

0 

LS20 

0 



CA 

LS27 




Explanation of working Temporaries (WT) 

WTO 0 [30000 ] 0 Temp 0 - op. code and M v" always Zero 

100 t30000 3 Temp 1 - op. code and M u" always Zero 

2 C— — —3 Temp 2 

3 C— - —3 Symbol temp | Floating point inst. 

4 £— - —Dummy inst. address) Register indicator 

5 [— - —3 Dummy instruction 

6 C— - —3 Subscript word following dummy instruc¬ 

tion 
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Explanation of Counters (CT) 

CTO 0 C — DC — D Crc-no. relative constants 

1 OC — DC— D Crpt-no. ten lines in running prog, body 

2 0 C — DC — D Crct-no. ten lines in relative constant 

region 

3 Of — DC — D Trp-subtally of no. lines in running prog. 

4 0 C — DC — D Trc-subtally of no. relative constants 

5 o C — DC — D Trpt-subtally of no. ten lines in running 

prog, body 

6 0 C — DC — D Trct-subtally of no. ten lines in rei. 

const, region 

7 0 C — DC — D Increment (I) 

10 C— —— —D Condition indicator 

11 0 0 C — D Index counter (C^) 

12 0 0 C — D Index counter (C 2 ) 

13 0 0 C — D Index counter (Cg) 


List of running (current) Addresses in Lists (RA) 

RAO C— - —D /? (available open address in Operand 

List in ”u” and "v") 

1 (~— - —-D Op. File 1 tally (jn in ’’unavailable 

address in ”v”) 

2 £— - —D "0” List tally (jn in ’’unavailable add¬ 

ress in "v”) 

3 £— - —3 ”A” List tally (jn in ”u”-available add¬ 

ress in ”v") * 

4 £ — - —D y -Expanded List tally (jn in "u”-last 

used address in "v") 

5 £— - —j Dummy tally (D) for Expanded List (same 

format asy ) 

6 C— - —D Partial result (P.R„) counter (current 

P.R. in ”v”) 

7 C— - —D Tally of number of lines in running pro¬ 

gram +1000 

10 C — - —D Redundant P.R. List tally (jn in ”u” — 

available address in "v") 
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Equation Generation No. 3 Flow Charts 
Equation Generation Phase 



Preset address of next 
word in Expanded List 
in Box-1. 



Next dummy instruction 


Advance address in 

from Expanded List 

«e— 

Expanded List by 

to temp 5 and "A” 


one 








Fixed point 
addition 
operator ? 


YE 



29 


NO 


f Fixed point \ yes 

f subtraction operator? }-H 30 



NO 


( Fixed point 
multiplication 
operator? 


YES 



31 


NO 


f Fixed point 
( division operator? 


YES 



32 


NO 


Library operator? 



NO 





NO 


Fixed point 
absolute value 
operator? 



NO 


Integral Power 
(+2) operator? 


NO 
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1355 
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Equation Generation Phase (Subscript Manipulation Operator) 



SI next word from 
Expanded List to temp 

6 


> 

i 

Check indicator from 
op. code of temp 6 

' 





Advance current rela- 


Advance current 

tive address by three 


relative address 
by two 


R7 






Advance current 
relative address 
by four 


Advance address counter 
for Expanded List by one 
to address of partial 
result following last 
subscript word for 
current operator 


_5 

' 

Preset this 
in Box-1 of 
routine R1 

address 

sub- 


R4 


R2 


NO 

U_ 


Indicator must\ 


equal 7. 

r 
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(0\ 


Advance current 
relative address 
by three 


Advance current 
relative address 
by five 


Advance current 
relative address 
by four 


Preset Box-1 of Sub¬ 
routine R1 to Expanded 
List address of last sub¬ 
script word for current 
operator 


Advance address counter 
for Expanded List by two 
to address of partial 
result following last 
subscript word for cur¬ 
rent operator 


Advance address counter 
for Expanded List by 
two to address of par¬ 
tial result following 
last subscript word for 
current operator 


Advance address counter 
for Expanded List by one 
to address of partial 
result following last 
subscript word for cur- 


Preset this address 
in Box-1 of sub¬ 
routine R1 


Preset Box-1 of sub¬ 
routine R1 to Expanded 
List address of last 
subscript word for cur¬ 
rent operator 



















Partial result symbol 
for current operator 
from Expanded List to 
"v" of temp 6. 


Advance address counter 
for Expanded List by 
one to address of next 
operator 
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(Indicator=one) 


Equation Generation Phase (Fixed Point Operators) 


(35 30000 32000) 
Instruction to 
terno 3 
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(13 32000 32000) 
Instruction to 
temp 2 


j 


(12 -32000 32000) 
Instruction to 
temp 2 



Is partial result 
symbol in "v" of temp 


in "A” List? 



(11 32000 30000) 


(32000) to "u" and 

Instruction to 

<=- 

"v" of register in- 

temp 2 


dicator (temp 4) 










Equation Generation Phase (Fixed Point Operators 
and Floating Point Binary Operators) 





Advance callword of 
current reusable temp- 


ftrarv ct arorro K 

vx MX j u 1/ VX MVjU 


' Is highest reusable 
temp callword used 
greater than current 
V callword? > 


Retain current call- 
word as highest used 




Advance current re- 
lative address by 


I 



Instruction from temp 
v 2 to routine buffer/ 




(32000) to "u” and "v 
of register indicator 
(temp 4) 


^ 40 ^ 



(64 30000 30000) 
instruction to 
temp 3 


(65 30000 30000) 
instruction to 
temp 3 



"Instruction from temp 
v 2 to routine buffer 


(66 30000 30000) 
instruction to 
temp 3 
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Indicator \ /"LTV ES f Indicator 













Jp° 


Indicator 


= 27g ? 


NO 


Indicator 


= 30 8 ? 


NO 


Indicator 
= 31 8 ? 


NO 


Indicator 


= 32 8 ? 


NO 


Indicator 


= 33 0 ? 


NO 


Indicator 


= 34 a ? 


YE 


4 ( 92 ) 


JES-^93) 


YE 


4 © 


YE 


4(95) 


YES 




YES 
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Advance current 
relative address 
by three 


Advance current 
relative address 
by one 


Advance current 
relative address 
by three 


(65)- 


Advance current 
relative address 
by three 



Advance current 
relative address 
by one 


Is instruction in 
temp 3 (65 30000 
30000)? 


Advance current 
relative address 
by one. 


Advance current 


(64 31000 30000) 


Callword from 

relative address 


instruction to 

—> 

"u" of temp 5 to 

by two 


temporary 2 


"v" of temp 5 


Instruction fro 
temp 2 to 
routine buffer/ 


Advance current 
relative address 
by four 


Advance current 
relative address 
by four 


Advance current 
relative address 
by four 


v 
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Advance current 
relative address 
by four 


Advance current 
relative address 
by three 


Advance current 
relative address 
by three 


Advance current 
relative address 
by four 


Advance current 
relative address 
by two 


Advance current 
relative address 
by four 


Advance current 
relative address 
by two 



S31V-H82 


switch. J&r) 



82) (87 


Advance current 
relative address 
by two 


135)—>(82) 
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Is instruction in 
temp 3 (65 30000 
v30000)? 


Advance current 
relative address 
by three. 


Advance current 
relative address 
by five 


|Advance current 
relative address 
by five. 


Advance current 
relative address 
by five. 


Advance current 
relative address 
by five 


Advance current 
relative address 
by five 



Instruction from temp 
v 2 to routine buffer 


K 
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Equation Generation Phase (Library Routine Operator) 
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Ai~instruction\ 
V from temp 2 to y 
V__y ^routine buffer / 


"10" line for argument 
from "10" line counter 
(temp 10) to temp 2. 



Xi'-"10" line \ 
from temp 2 toy 
routine buffer F 


Decrease "10" linel 
counter (temp 10) 
by one in "v". 


(lOj)-> 





Advance current 
relative address 
by four 


Advance current 
relative address 
by four 


Advance current 
relative address 
by three 



Advance current 


11 30000 32000 


"u" of register indicator 


Library routine callword 

relative address 

—> 

instruction 


(temp 4) to "u" of temp 2 

”T| 


from "v" of temp 5 to 

by one 


to temp 2 

■ 




"v" of temp 2 


Advance current 
relative address 
by three 





Advance current 
relative address 
by two 


— 


lll 30000 32000 
instruction 
to temp 2 


(l06)«- 


Library routine callword 
from "v" of temp 5 to "v" 
of temp 3 



11 30000 320001 
instruction 
to temp 2 


temp 6 to 


of 

of temp 3 




"10" line for argument 

/x3-"10" line \ 

Decrease "10" line 

from "10" line counter 

_»/ from temp 3 to \_> 

counter (temp 10) 

(temp 10) to temp 2 

\relative constant/ 

by one in "v". 


\ image / 
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Equation Generation Phase (Floating Point Unary Minus and Absolute Value Operators) 


(m)-* 


13 30000 31000 

—>(ll6) (U5)» 

12 30000 31000 

v /Sl-next word from\ 

Check indicator 


instruction 

instruction 

—>TL16)—Expanded List to \—> 

from Op* code 

—>1 

to temp 3 

to temp 3 

\ temp 6 / 

of temp 6 
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Equation Generation Phase (Integral Power Operators) 


Power ^ 

_. 2 

m 



m 


1 



- > 

A- 

■*( 97 ) 



—> 

m 


■ 

■SIB 



Power 

3 


<P3^-© 


Si—Next word 
from Expanded 
List to Temp 6 



Check indicator 
from op. code 
of temp 6 



Indicator\NO /indicatory NO /Indicator^ NO f Indicator^ NO /Indicaton NO 
1143)—H = 1? ) -H = 4? ) -H = 5? =10? 


11 ? 


Indicator N 
must equal 33 


Indicat ) 
= 0 ? 



YES 
■^ 144 ) 


-M152 


YES 


YES 


"Hi 46 


YES 


■H147 


YES 
H150 


© 


0* 


67 30000 30000 


Callword from "u M of 

pan 

Advance current 

Instruction 

-> 

temp 5 to "v” of temp 


relative address 

to temp 2 


5 


by one 


-Hi 4 9] 



(l46)-> 


Advance current 
relative address 
by one 


Advance current 
relative address 
by three 


67 30000 30000 
instruction 
to temp 2 






"v" of register indi 
cator (temp 4) to 
"v" of temp 2 


Callword from ”u” of 


temp 5 to M v" of 
temp 3 



67 30000 30000 
instruction 
to temp 3 


Callword from ”u” of 
temp 6 to ”u" of 
temp 3 


(97)*—^39^*. 





























1379 



Advance current 
relative address 
by three 




32 30000 00000 
instruction 
to temp 2 


Relative constant call> 
r u" of temp 2 


67 30000 30000 


Fixed constant call- 

instruetion 

word from "u" of 

to temp 2 

temp 6 to "u" of 



temp 2 



XI—Instruction 
from temp 2 to 
routine buffer 



XI—Instruction 
from temp 2 to 
routine buffer 


-H 97 





Advance current 
relative address 
by three 


Advance current 
relative address 
by three 



21 30000 30000 
instruction 
to temp 2 




Current relative address 
to ’V‘ of temp 2 


S2 6 V—^(l48) (l52)-> 


Advance current 
relative address 
by two 



•^ 23 ^-^ 148 ) 


XI—Instruc¬ 
tion from temp 
2 to routine 
buffer 


148K 
































Equation Generation Phase (Operator to Store Result) 

































1381 




Advance current 
relative address 
by four 




temp 5 to 


of 

of temp 3 


Instruction from 
temp 3 to temp 2 



[180WS12 


Advance current 
relative address 
by one _ 


Advance current 
relative address 
by two 



fl82Ws/Sl2 


"u" of register indicator 
(temp 4) to "u" of temp 3 



S2 




'XI—Instruction 
u V / from temp 2 to 
\ routine buffer 



Advance current 
relative address 
by three 






Advance current 
relative address 
by one 








Callword from "v" of 
temp 5 to "v" of temp 3 
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Equation Generation Subroutine for Floating Point Operators 



Equation Generation Subroutine for Floating Point Unary Minus and Absolute Value Operators 
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Equation Generation Subroutine for Power (l/2) and (-1/2) 



(L65)—> 


Advance current 


11 30000 50051 


relative address 


instruction 


by one 


to temp 2 

























1384 




XI—instruction 
from temp 2 to 
routine buffer 


(l69^ 




Advance "10” line 
counter (temp 10) 
by one in "v". 
Resultant "10" 
line from "A" to 
temp 2 

,..1-"10" line 
from temp 2 to 
routine buffer 

v 


Advance current 

A 

s* —\ 

A 


Advance current 

relative address 
by one 


■*©- 

><S22>- 


relative address 
by three 



Xl-"10" line 
from temp 2 to 
routine buffer 



173 


Advance current 
relative address 
by one 




"10" line 

/ XI—instruction 

37 50051 50051 

10 00002 00000 

^_/from temp 2 to \ 

instruction 

to temp 2 

\ routine buffer/ 

to temp 2 
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Equation Generation Subroutine for Power (2) and (-2) 
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Equation Generation Subroutine for Power (3) and (-3) 
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Equation Generation Subroutines for Power (4 to 63) and (-4 to -63) 




Box-5 


Advance address in 


Word from Expanded 

Expanded List by one 

- > 

List to temp 6 

Box-6 


\ 

f 

Op. Code from next 


Preset address of next 

word in Expanded List 

<£- 

word in Expanded List 

to "A" register 


in Box- 

6 















1388 



















Equation Generation Subroutines for Subscript Operator 


0 


(72 30000 
30000) in¬ 
struction to 
temp 2_ 


Subscripts ob- ^ 
tained in reverse 
order 


Box-3 




(71 32000 
30000) in¬ 
struction to 
temp 6 
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Equation Generation Subroutines 


Box-2 












1391 





















1392 






















(11 30000 32- 
000) instruc¬ 
tion to temp 
_2 


Callword from "v' 
of temp 5 to M u" 
of temp 0 


Callword from "u* 
of temp 6 to "u" 


of temp 0 


Instruction from \ 
temp 2 to routine, 
buffer / 



(16 32000 
30000) instr¬ 
uction to 
temp 2 


Callword from "v* 
of temp 5 to "u" 
of temp 2 


Relative constant 


of temp 2 


(32 30000 00017) 
instruction 
to temp 2 


Callword from "u” 
of temp 5 to "U." 
of temp 2 


(16 32000 
30000) instr¬ 
uction to 
temp 2 


Callword from "u 1 
of temp 5 to ”u" 
of temp 2 


Current relative 


of temp 2. 


(15 32000 
30000) instr¬ 
uction to 
temp 2 


Current relative 
address to "v M 
of temp 2 


Callword from "v* 
of temp 6 to "u* 
of temp 2. 


(15 32000 30000) Callword from "u" 
instruction of temp 6 to "u M 

to temp 2 of temp 2 


Current relative 


of temp 2. 


(32 30000 00000) 
instruction 
to temp 2 


Callword from "u" 
of temp 5 to *V' 
of temp 2 


16 32000 30000) 
instruction 
to temp 2 


Callword from 'V 
of temp 5 to "u M 
of temp 2 


Relative constant 


of temp 2. 
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1394 













1395 







1396 


Equation Generation Subroutines 
















Instruction from 
temp 3 to temp 2 



XI 

Instruction from temp 2 
to routine buffer 


























1398 


( Ki / 


[66 30000 30000] 
Instruction 
to temp 2 


allword of current re¬ 
usable temporary storage 
to "u" of temp 2 


Callword of current 
reusable temporary 
storage to "v" of temp 2 


Instruction from ' 
Stemp 2 to routine; 
\_buffer / 


r > 

S52 

v y 


r y 

( S53 

v y 


S54 


[11 30000 32000] 
Instruction 
to temp 3 


[11 30000 32000] 
Instruction 
to temp 3 


[32 30000 00017] 
Instruction 
to temp 2 


Callword from "u" of /\ 

temp 5 to "u” of temp 3 _ 

/\ Instruction from 
'k 2 \-> temp 3 to temp 2 


' X2 Instruc- \ 
tion from temp 3 
to relative con-/ 
\stant image / 























399 



Equation Generation Subroutine to Store Instruction in Routine Buffer 











1400 


Equation Generation Subroutine to Store Relative Constant in Relative Constant Image 



Equation Generation Subroutine to Obtain Pertinent Temporary Storage Callword (TR) 
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Equation Generation Subroutines for Fixed Point Operators 



[11 30000 32000] 
Instruction 
to temp 2 



Instruction from 
temp 3 to temp 2 



Indicators YES 
39 h—K = i? ) " x 


temp 5 to 


of 

of temp 01 


Instruction from 
[temp 3 to temp 2 


(IND=2) 




[13 32000 32000] 

/Xl Instruc- \ 

Callword from "u" 


Advance current 


[35 30000 32000] 

Instruction 

_>/tion from temp 2\_> 

of temp 5 to "u" 

—? 

relative address 

— > 

Instruction 

to temp 2 

\ to routine / 

of temp 0 


by one 


to temp 2 


\ buffer / 






































REGIONS FOR EQUATION GENERATION NO. 3 


RE UP421 
RE EP537'] 
RE BQ632J 
RE WA653 
RE OP1047 
RE CW1211 


Uniprint 

Machine Error Routine 

Routine to Print Error Heading 
Op. Control Routine 
Constant Callword Routine 


RE BG2512 
RE GE2542 
RE EG2603 
RE GY2730 
RE GZ3030 
RE NZ3120 
RE ZZ3150 
RE GF3176 
RE GG3262 
RE GH3357 
RE GI3457 
RE GJ3564 
RE GK3624 
RE GL3661 
RE GM3713 
RE GN3764 
RE GP4043 
RE GQ4131 
RE Gf14210 
RE GW4277 
RE GX4376 
RE GA4472 
RE GB4545 
RE GS4600 
RE GT4716 
RE GU5014 
RE GV5073 
RE SI5133 
RE TR5154 
RE GC5171 
RE TI5245 
RE T05316 
RE LG5322 


RE TT5324 
RE RB5360 
RE RA5550 
RE XQ5561 
RE XA5761 
RE RL6161 
RE EL6261 
RE FL7161 
RE CI7361 


Temporary Storage 
"Generated Routine" Buffer (170 q 
R elative Address List 
"Q" List 


words) 


Inputs 

from 


"A" List 

Redundant Partial Result List 
Expanded List 

Op. File 1 Item for Generated Routine 
"Generated Relative Constants" Image 


equa¬ 

tion 

Redun¬ 

dancy 

check 
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REGIONS FOR EQUATION GENERATION NO. 3 (continued) 

RE DL40102 Dimension List 

RE RI65000 "Generated Routine” Image (used when Routine 

exceeds routine buffer, RB) 

RE II5245 Dummy Instructions 
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Equation Generation No. 3 



IA 

BG 

[300001 

Begin Generation 

0 

MJ 

0 

Exit from phase 

1 

TP 

GC50 

RA4 

Preset initial relative constant 
callword (lOOOOg) 

Preset initial redundancy temp callword 
less 1 

2 

TP 

GC51 

RA5 

3 

TP 

GC52 

RA6 

Preset initial reusable temp callword 
less 1 

A 

T*D 

crc o 

D A7 

C/v<l- Ini 4» Am r*UT i m i i ol MA » i A 

ucu iix yutr 0 u i»ciup vh — xuiuiax ituo* 

temp CW less 1 

■x 

JL JL 

uni 

5 

TP 

EL 

RB 

EQ. CW & # lines subj. add. mod.—► 1st 
line of prelude 

6 

TP 

GC17 

RB3 

^inputs = Zero —► 4th line of prelude 

7 

TP 

GC17 

RB4 

^outputs = Zero —5th line of prelude 

10 

TP 

ELI 

RB5 

Sentence number—*• 6th line of prelude 

11 

TP 

1150 

R36 

Exit line —> 1st line of Generated 
routine 

12 

TP 

GC20 

SI1 

Preset add. in routine buffer for 2nd 
line Gen. routine 

13 

TP 

GC27 

SI6 

Preset initial address in routine image 

14 

TP 

GC30 

SI12 

Preset initial address i-n relative 
constant image^ 

15 

TV 

GC21 

GG45 

Preset $witch(^ 

16 

TP 

GC17 

TT 

Zeroize temp 0 

17 

TP 

GC17 

TT1 

Zeroize temp 1 

20 

TV 

GC41 

GI42 

Preset switch(B) 

21 

TO 

RA2 

ZZ5 

Preset repeat to search Redundant 
Partial Result List 

22 

TO 

RA1 

ZZ14 

Preset repeat to search H A U List 

23 

TO 

RA1 

GZ24 

Preset repeat to search "A" List 

24 

TO 

RA2 

TR2 

Preset repeat to search Redundant 
Partial Result List 

25 

TO 

RA1 

NZ 

Preset repeat to search M A” List 

26 

TO 

RA2 

NZ21 

Preset repeat to search Redundant 
Partial Result List 

27 

MJ 

CA 

0 

BG30 

GE 
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© 

© 



TA 

GE 


Generator Symbol Search 

0 

TO 

RA10 

GE2 

Preset address of next word in Expanded 
List 

1 

RA 

RAiO 

GC6 

Advance address in Expanded List by one 

2 

SP 

[30000J 

0 

Dummy instruction from Expanded List 





—>A 

3 

TP 

A 

TT5 

Dummy instruction to temp 5 

4 

LT 

6 

Q 

Get operator symbol from Op.code of 
dummy instruction 

5 

SP 

Q 

17 

Operator symbol to w u H of A 

6 

AT 

1116 

A 

Form|MJ| symbol 1 0 |- >k 

7 

RP 

30027 

GE40 

Search list for operator symbol 

10 

TJ 

GE11 

GE11 

Jump according to symbol 

11 

MJ 

37 

GY 

Symbol for subscript manipulation 

12 

MJ 

41 

GF 

Symbol for floating plus 

13 

MJ 

52 

GF2 

Symbol for floating subtract 

14 

MJ 

53 

GF4 

Symbol for floating multiply 

15 

MJ 

54 

GF6 

Symbol for floating divide 

16 

MJ 

55 

GZ 

Symbol for fixed plus 

17 

MJ 

56 

GZ3 

Symbol for fixed subtract 

20 

MJ 

57 

GZ5 

Symbol for fixed multiply 

21 

MJ 

60 

GZ16 

Symbol for fixed divide 

22 

MJ 

61 

GL 

Symbol for library operator 

23 

MJ 

62 

GN 

Symbol for floating unary minus (neg) 

24 

MJ 

63 

GZ26 

Symbol for fixed unary minus (neg) 

25 

MJ 

64 

GN2 

Symbol for floating Abs. value 

26 

MJ 

65 

GZ30 

Symbol for fixed Abs. value 

27 

MJ 

66 

GP 

Symbol for POW + 2 

30 

MJ 

67 

GP2 

Symbol for POW - 2 

31 

MJ 

70 

GQ 

Symbol for POW + 3 

32 

MJ 

71 

GQ2 

Symbol for POW - 3 

33 

MJ 

72 

GX 

Symbol for POW l/2 

34 

MJ 

73 

GX2 

Symbol for POW - l/2 

35 

MJ 

74 

GW 

Symbol for POW (4 to 63) 

36 

MJ 

75 

GW2 

Symbol for POW (-4 to -63) 

37 

MJ 

76 

GR 

Symbol for POW -1 


CA 

GE40 
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IA 

GE40 


40 MJ 

CA 

77 GA 

GE41 

Symbol for storage operator 


0 

IA 

RS 

EG 

RA3 

GC53 

End Generation of Equation 

Number lines in object program body to 

A 

1 

TJ 

LG1 

EG6 

Is number of lines in object prog, body 

2 

RJ 

WA 

WA1 

more than 1001 b? 

Yes; Type:' SENTENCE (EQUATION) 

3 

TP 

TO 

UP3 

Parameter for alarm text to type routine 

4 

RJ 

DP2 

DP 

Type: SENTENCE TOO LONG. 

5 

MJ 

0 

BQ6 

Rewind tapes and stop 

6 

RS 

RA4 

GC50 

Number of relative constants for object 

7 

TJ 

GC44 

EG11 

program to A 

Is number of relative constants more 

10 

MJ 

0 

EG2 

than IOOOq? 

Yes, jump to type alarm 

11 

RS 

RA2 

GC45 

Number of redundancy temps for object 

12 

TJ 

GC44 

EG14 

program to A. 

Is number of redundancy temps more 

13 

MJ 

0 

EG2 

than IOOOq? 

Yes, jump to type alarm 

14 

TP 

RA7 

A 


15 

ST 

GC52 

RA6 

Number of reusable temps for object 

16 

TJ 

GC23 

EG20 

program to A 

Is number of reusable temps more than 

17 

MJ 

0 

EG2 

776q? 

Yes, jump to type alarm 

20 

SA 

RA2 

0 

Number reusable temps + number redundancy 

21 

SA 

RA4 

0 

temps 

Add number of relative constants 

22 

SA 

RA3 

0 

Add number of lines in object program 

23 

TV 

A 

FL1 

body 

Number lines in object prog, including 

24 

SP 

RA4 

> 

6 

temps to Op. File 1 

Form codeword containing number of 

25 

TV 

A 

RA6 

redundancy temps, number of reusable 
> temps and number of relative constants 

26 

TU 

RA2 

TT 

27 

SP 

TT 

11 

for third line of prelude for 

30 

SA 

RA6 

3 J 

routine. 

31 

TP 

A 

RA5 

Store codeword temporarily 

32 

TP 

1147 

TT2 

Qvu 0 1000 ] to temp 2 (j ump to 

33 

RJ 

SI 

SI1 

exit) 

Store inst. in temp 2 in routine image 

34 

TP 

SI6 

A 


35 

EJ 

GC27 

EG41 

Number of instructions in generated 

36 

TP 

SI12 

A 

routine < 170 D ? 

No 8 

37 

ST 

GC30 

TT3 

Number of relative constants in relative 


CA 

EG40 


constant image to A 
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40 

IA 

MJ 

EG40 

0 

EG45 


41 

TP 

SI12 

A 


42 

ST 

GC30 

TT3 

Number of relative constants in 

43 

SA 

SI1 

0 

relative constant image to A 

44 

TJ 

GC42 

EG101 

Number lines in Gen. routine including 

45 

TP 

SI1 

A 

rel. const. < 170 Q ? 

No 8 

46 

ST 

GC24 

TT4 


47 

SA 

GC31 

17 


50 

TU 

A 

EG52 


51 

TV 

SI6 

EG53 


52 

RP 

[30000] 

EG54 " 

) Generated Instructions from routine 

53 

TP 

RB 

[30000]^ 

> buffer 

J to current address in routine image 

54 

TP 

TT3 

A 

on drum 

55 

SA 

GC31 

17 


56 

TO 

A 

EG62 


57 

TV 

TT4 

TTl 


60 

TV 

SI6 

EG63 


61 

RA 

EG63 

TTl 


62 

RP 

[30000] 

EG64 ^ 

Relative constants from relative 

63 

TP 

Cl 

[30000]j 

constant image to routine image on drum 

64 

TV 

EG63 

EG53 

following generated instructions 

65 

RA 

TT3 

EG53 


66 

SS 

GC27 

0 


67 

TV 

A 

RI 

Number lines in prelude & routine to 

70 

ST 

GC40 

RI1 

1st line of prelude 

Number lines subject to address 

71 

TP 

RA5 

RI2 

modification to 2nd line of prelude 
Codeword to third line of prelude 

72 

TP 

EL 

A 

for routine 

Sentence callword from first word in 

73 

TJ 

GC46 

EG75 

Expanded List to A 

Is callword for equation in pseudo 

74 

TJ 

GC15 

EG77 

operation? (22-—) 

No, is callword for separate equation? 

75 

RA 

RA7 

GC2 

(24— or 25—) 

No, advance highest reusable temp 

76 

TV 

A 

RI6 

callword by two 

Callword to ‘V* of exit line for 

77 

TP 

GC16 

0P1 

Generated Routine 

Send parameter to write Generated Routine 


CA 

EG 100 


from drum 
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100 

IA 

MJ 

EG 100 

0 

EG123 


101 

TP 

TT3 

A 

Number of relative constants in rel. 

102 

SA 

GC31 

17 

const, image to A 

103 

TO 

A 

EG105 


104 

TV 

SI1 

EG 106 


105 

RP 

[30000] 

EG107 ] 

1 Relative constants from relative 

106 

TP 

Cl 

1 

[30000] I 

L constant image to 

routine buffer in core following 

1U( 

rm r 

rv/ 

EAJlUO 

J 

P "T* . 

0X1 

generated instructions 

1W 


110 

RA 

TT3 

SI1 


in 

SS 

GC24 

0 


112 

TV 

A 

RB 

Number lines in prelude and routine to 

113 

ST 

GC40 

RBI 

1st line of prelude 

Number lines subject to address 

114 

TP 

RA5 

RB2 

modification to 2nd line of prelude 
Codeword to third line of prelude 

115 

TP 

EL 

A 

Sentence callword from first word in 

116 

TJ 

GC46 

EG120 

Expanded List to A 

Is callword for equation in Pseudo 

117 

TJ 

GC15 

EG122 

operation? (22——) 

No, is callword for separate equation? 

120 

RA 

RA7 

GC2 

(24— or 25—) 

No, advance highest reusable temp 

121 

TV 

A 

RB6 

callword by two 

Callword to "v” of exit line for 

122 

TP 

GC43 

0P1 

Generated Routine 

Send parameter to write Generated 

123 

RJ 

OP 

0P2 

Routine from core 

Write generated routine and Op. File 

124 

MJ 

0 

BG 

1 item on tape 

Jump to exit from phase 


CA 

EG125 





@ "Sub'' 
Operator 

0 

IA 

RJ 

GY 

GS5 

GS 

■ 1 

LQ 

A 

25 


2 

AT 

1116 

A 


3 

RP 

30007 

GY14 


4 

TJ 

GY5 

GY5 


5 

MJ 

0 

GY15 


6 

MJ 

1 

GY20 


7 

MJ 

2 

GY22 


10 

MJ 

3 

GY30 


11 

MJ 

4 

GY34 


12 

MJ 

5 

GY42 


13 

MJ 

6 

GY47 

✓™*v 

14 

MJ 

7 

GY61 

(l7) Ind 

15 

RA 

RA3 

GCl 

= 0 


16 

RJ 

GS12 

GV31 


17 

MJ 

0 

GY73 

08) Ind 

20 

RA 

RA3 

GC2 

= 1 


21 

MJ 

0 

GY73 

(19) Ind 

22 

RA 

RA3 

GC 

= 2 


23 

RA 

RAlO 

GC6 


24 

TO 

A 

GV2 


25 

RJ 

GV21 

GVll 


26 

RJ 

GS12 

GV7 


27 

MJ 

0 

GY56 

(20) Ind 

30 

RA 

RA3 

GCl 

= 3 


31 

TU 

RAlO 

GV2 


32 

RA 

RAlO 

GC6 


33 

MJ 

0 

GY67 

(21) Ind 

34 

RA 

RA3 

GC4 

= 4 


35 

RA 

RAlO 

GC36 


36 

TU 

A 

GV2 


37 

RJ 

GV21 

GVll 



CA 

GY40 




Adv. current rel. address by 4 in M u” 
and V* 

Adv. add. in Exp. List by 1—> Add. of 
P.R. value 

Add.of word following last subs, in 
Exp. List -> "u" of TP 
To R4 
To R2 


Adv. current rel. address by 3 in "u" 
and V* 

Add. of last S.S. in Exp. List —> "u” 
of TP 

Adv. Add. in Exp. List by 1—* add. of 
P.R. value 


Adv. current rel. address by 5 in M u w 
and "v" 

Adv. Add. in Exp. List by 2—Add. of 
P.R. value 

Add. of word following last S.S. in 
Exp. List —>"u" of TP 
To R4 
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@ 7 Ind 




IA 

GY40 


Generate Subscript Ins. (cont.) 

40 

RJ 

GS12 

GV7 

To R2 

41 

MJ 

0 

GY55 


42 

RA 

RA3 

GC 

Adv. current rel. address by 4 in "u” 

- •* 
ana v 

43 

RA 

RA10 

GC36 

Adv. add. in Exp. List by 2—>Add. of 
P.R. value 

44 

SS 

GC6 

0 

Dec. V’ of A by one ► Add. last subs 
in Exp. List. 

45 

TU 

A 

GV2 

Add. of last S.S. in Exp. List —> "u” 
of TP 

46 

MJ 

0 

GY66 


47 

RA 

RA3 

GC5 

Adv. current rel. address by 6 in "u" 
and V 

50 

RA 

RA10 

GC37 

Adv. add. in Exp. List by 3—^ Add. 
of P.R. value 

51 

TU 

A 

GV2 

Add.of word following last S.S. in 

Exp. List —> ’V of TP 

52 

RJ 

GV21 

GVll 

To R4 

53 

RJ 

GS12 

GV7 

To R2 

54 

RJ 

GS12 

GV 

To Rl 

55 

RJ 

GS12 

GV 

To Rl 

56 

TP 

TT3 

TT2 

Generated [Sk — o] inst —> temp 2 

57 

RJ 

SI 

SI1 

Store inst. in temp 2 in routine image 

60 

MJ 

0 

GY70 

61 

RA 

RA3 

GC4 

Adv. current rel.add. by 5 in "u" and 

62 

RA 

RA10 

GC37 

Adv. add. in Exp. List by 3 —> add. of 
P.R. value 

63 

SS 

GC6 

0 

Dec. "u" of A by one —> add. of last 
S.S. in Exp. list 

64 

TU 

A 

GV2 

Add. of last S.S. in Exp. List—► M u" 
of TP 

65 

RJ 

GS12 

GV 

To Rl 

66 

RJ 

GS12 

GV 

To Rl 

67 

RJ 

GS12 

GV 

To Rl 

70 

TU 

RA10 

GY71 

Add of P.R. value in Exp. List—► "u” 
of NI 

71 

TP 

[30000] 

TT6 

P.R. value -> "v M of temp 6 

72 

RA 

RA10 

GC6 

Adv. add. in Exp. List by 1 in ”u M 

73 

RJ 

GS12 

GV22 

To R5 

74 

RJ 

GS12 

GV27 

To R6 

75 

TP 

1142 

TT2 

[TP A 30000] Temp 2 

76 

RJ 

ZZ13 

ZZ2 


77 

MJ 

0 

ZZ22 



CA 

GY 100 
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(2^) Fixed 0 

IA 

TP 

GZ 

1112 

TT3 

add. 1 

RJ 

GZ53 

GZ40 

2 

MJ 

0 

ZZ22 

(30) Fixed 3 

TP 

1113 

TT3 

subt. 4 

MJ 

0 

GZl 

(3l) Fixed 5 

RJ 

GS5 

GS 

mult. 6 

TP 

1124 

TT2 

7 

ZJ 

GZ12 

GZlO 

10 

RJ 

GT27 

GT21 

11 

MJ 

0 

GZ12 

12 

RJ 

GT13 

GT5 

13 

RA 

RA3 

GC3 

14 

RJ 

SI 

SI1 

15 

MJ 

0 

GY75 

(32) 16 

TP 

1137 

TT3 

Fixed 17 

RJ 

GZ53 

GZ40 

div. 20 

RA 

RA3 

GC3 

21 

RJ 

SI 

SI1 

22 

TP 

1141 

TT2 

23 

TP 

TTl 

A 

24 

RP 

[30000] 

GE 

^ 25 

EJ 

XA 

ZZ22 

(33) 26 

TP 

1131 

TT2 

Fixed 27 

MJ 

0 

GZ31 

Unary j 30 

TP 

1144 

TT2 

minus / 31 
Fixed - 32 

RJ 

GS5 

GS 

ZJ 

GZ34 

GZ33 

abs. 

val. 33 

RJ 

GT27 

GT21 

34 

TV 

TT6 

TTl 

35 

TP 

TTl 

A 

36 

MJ 

0 

NZ 


CA 

GZ37 



Generate Fixed Point Inst. 

[At 30000 A]—> Temp 3 
To Z1 

[ST 30000 A] —> Temp 3 

Next word from Expanded List to temp 6 
[MP A 30000] —> temp 2 
Check indicator from op. code of 
word in temp 6 
Indicator =0 (to S33) 

Indicator = 1 (to S29) 

Adv. current relative address by one 
Store inst. in temp 2 in routine image 

[DV 30000 A ] —> temp 3 
To Zl 

Adv. current rel. address by 1 in 
"u" and "v" 

Store inst. in temp 2 in routine image 

[TP Q A] —> temp 2 

Partial result symbol —► "A” register 

Is partial result symbol in M A" List? 

Yes ZZ£2; No GE 

[TN A A] —> temp 2 

[TM A A] —> temp 2 
Next word from Expanded List to temp 6 
Check Indicator from op. code of 
word in temp 6 
Indicator = 0. (to S33) 

Ind. = 1; P.R. symbol —► "v" of temp 1 
P.R. —► V of A 
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@ 

Ind = 
0 




Ind = 
1 


40 

TA 

RJ 

GZ40 

GS5 

GS 

Next word from Expanded List to temp 6 

41 

ZJ 

GZ54 

GZ42 

Check indicator in op. code of word 

42 

RA 

RA3 

GC3 

(to GZ42 if ind = 0) 

Adv. current relative address by one 

43 

SP 

TT5 

17 


44 

TO 

A 

TT 

Operand symbol from "v" of temp 5 to 

45 

RJ 

GT27 

GT22 

V* of temp 0 

To S34 

46 

TO 

A 

TT3 

Operand or temp callword to M u M of 

47 

TP 

III 

TT2 

temp 3 

[TP 30000 A] —> to temp 2 

50 

RJ 

GS12 

GT17 

To S32A 

51 

TP 

TT3 

TT2 

Instruction from temp 3 to temp 2 

52 

RJ 

ZZ13 

ZZ 


53 

MJ 

0 

[30000] 


54 

TJ 

GC14 

GZ64 

To GZ64 if indicator = 1 

55 

TP 

1131 

TT2 

Ind = 2; [TN A A] to temp 2 

Store instruction in temp 2 in 

56 

RJ 

SI 

SI1 

57 

TO 

TT5 

TT 

routine image 

Operand symbol from "u" of temp 5 to 

60 

RA 

RA3 

GC3 

"u” of temp 0 

Advance current relative address by one 

61 

TP 

1112 

TT2 

[AT 30000 A]—> temp 2 

62 

RJ 

GT27 

GT22 

To S34 

63 

MJ 

0 

GZ52 


64 

SP 

TT5 

17 

Ind = 1 

65 

TO 

A 

TT 

Operand symbol from "v" of temp 5 to 

66 

TP 

TT3 

TT2 

”u" of temp 0 

Instruction from temp 3 to temp 2 

67 

MJ 

0 

GZ62 


CA 

GZ70 
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fn *T\ 


0 

IA 

RP 

NZ 

[30000] 

NZll 

Is partial result symbol in "A” List? 

1 

EJ 

XA 

NZ2 

Yes —^ NZ2; no —> NZll 

2 

RA 

RA3 

GC3 

Advance current relative address by one 

3 

RJ 

SI 

SI1 

Store instruction in temp 2 in routine 

4 

TP 

1131 

TT4 

image 

Set register indicator to "A" in "u" 

5 

TP 

1142 

TT2 

and "v" 

[TP A 30000] —* temp 2 

6 

TP 

TT1 

A 

Partial result symbol”v" of A 

7 

RJ 

NZ21 

NZ21 

To Z2 (search Redundant P.R. List for 

10 

MJ 

0 

GE 

P.R.) 

Exit - P.R. in "A” List and not in 

11 

RJ 

NZ21 

NZ21 

Redundant P.R. List 

To Z2 (search Red. P.R. List when P.R. 

12 

RA 

RA6 

GC3 

not in "A" List) 

Advance current reusable temp callword 

13 

TJ 

RA7 

NZ15 

by one 

Is highest temp callword used> current 

14 

TP 

A 

RA7 

callword? 

No; retain current temp callword as 

15 

TV 

A 

TT2 

highest used 

Reusable temp callword —> H v M of temp 2 

16 

RA 

RA3 

GC3 

Advance current relative address by one 

17 

RJ 

SI 

SI1 

Store instruction in temp 2 in routine 

20 

MJ 

0 

GE 

image 

21 

RP 

[30000] [30000] 

Is partial result symbol in Redundant 

22 

EJ 

RL 

NZ23 

P.R. List? 

Yes—» NZ23; No —> repeat exit 

23 

TP 

RA2 

A 

j n —* "u M & "v” of A 

24 

SS 

Q 

0 

jn - (jn - r) — >"v n of A 

25 

SA 

RA5 

0 

Base redundancy temp callword + r—► M v" 

26 

TV 

A 

TT2 

of A 

Redundancy temp callword to "v" of temp 2 

27 

MJ 

0 

NZ16 



CA 

NZ30 
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0 

IA 

TV 

ZZ 

GZ25 

ZZ15 


1 

MJ 

0 

ZZ3 


2 

TV 

GC22 

ZZ15 



TV 

TT6 

TT1 

Partial result symbol to ’V of temp 1 

4 

TP 

TT1 

A 

P.R. symbol —> V of A 

5 

RP 

[30000] 

ZZ14 

Is P.R. in Redundant P.R. List? 

6 

EJ 

RL 

ZZ7 

Yes to ZZ7 ; no to ZZ14 

7 

TP 

RA2 

A 

jn—> "u" and ”v" of A 

10 

SS 

Q 

0 

jn - (jn - r) —> M v" of A 

11 

SA 

RA5 

0 

Base redundancy temp, callword + r—>"v” 

12 

TV 

A 

TT2 

of A 

Redundancy temp, callword —^"v" of 

13 

MJ 

0 

[30000] 

temp 2 

Exit 

14 

RP 

i—i 
o 
o 
o 
o 

a 

ZZ16 

Is partial result symbol in "A" List? 

15 

EJ 

XA 

[30000] 

No to ZZ16 

16 

RA 

RA6 

GC3 

Adv. current reusable temp callword 

17 

TJ 

RA7 

ZZ21 

by one 

Is highest temp used > current temp? 

20 

TP 

A 

RA7 

No, retain current temp callword as 

21 

TV 

A 

TT2 

highest used 

Current temp, callword—>"v” of temp 2 

22 

RA 

RA3 

GC3 

Advance current relative address by one 

23 

RJ 

SI 

SI1 

Store inst. in temp. 2 in routine image 

24 

TP 

1131 

TT4 

Set register indicator to "A" in ”u” 

25 

MJ 

0 

GE 

and "v" 


CA 

ZZ26 
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mult. 


@F1. 

divide 

© 


© 


© 



IA 

GF 

Generate Floating Point Inst. 

0 

TP 

1120 

TT3 

[FA 

30000 30000J -> temp 3 

1 

MJ 

0 

GF7 





2 

TP 

1121 

TT3 

[FS 

30000 30000] —> temp 3 

3 

MJ 

0 

GF7 





4 

TP 

H22 

TT3 

[FM 

30000 30000] -> temp 3 

5 

MJ 

0 

GF7 





6 

TP 

1123 

TT3 i 

[FD 

30000 30000] —► temp 3 

7 

RJ 

GS5 

GS Next 

word from Expanded List to 

10 

LQ 

A 

25 

Indicator from op. code of word 





"u" of A 



11 

AT 

iri6 

A 1 

MJ 

INDICATOR 

00000 

|-> A 

12 

RP 

30047 

GF63 Search list for indicator 

13 

TJ 

GF14 

GF14 Jump 

according to indicator 

14 

MJ 

0 

GG 

Ind. 

= 0 



15 

MJ 

1 

GG6 

Ind. 

= 1 



16 

MJ 

2 

GG10 

Ind. 

= 2 



17 

MJ 

3 

GG15 

Ind. 

= 3 



20 

MJ 

4 

GG17 

Ind. 

= 4 



21 

MJ 

5 

GG41 

Ind. 

= 5 



22 

MJ 

6 

GG55 

Ind. 

= 6 



23 

MJ 

7 

GG46 

Ind. 

= 7 



24 

MJ 

10 

GG50 

Ind. 

= 10 



25 

MJ 

11 

GH 

Ind. 

= 11 



26 

MJ 

12 

GH5 

Ind. 

= 12 



27 

MJ 

13 

GH10 

Ind. 

= 13 



30 

MJ 

14 

GH14 

Ind. 

= 14 



31 

MJ 

15 

GH21 

Ind. 

= 15 



32 

MJ 

16 

GH24 

Ind. 

= 16 



33 

MJ 

17 

GH40 

Ind. 

= 17 



34 

MJ 

20 

GH45 

Ind. 

= 20 



35 

MJ 

21 

GH50 

Ind. 

= 21 



36 

MJ 

22 

GH56 

Ind. 

= 22 



37 

MJ 

23 

GH66 

Ind. 

= 23 




CA 

GF40 
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IA GF40 

(47) 40 MJ 24 

41 MJ 25 

42 MJ 26 

43 MJ 27 

44 MJ 30 

45 MJ 31 

46 MJ 32 

47 MJ 33 

50 MJ 34 

(48) 51 MJ 35 

52 MJ 36 

53 MJ 40 

54 MJ 42 

55 MJ 43 

56 MJ 44 

57 MJ 45 

60 MJ 46 

61 MJ 47 

62 MJ 50 

63 MJ 51 

CA GF64 


GH72 

Ind. = 

24 

GJ 

Ind.= 

25 

GJ6 

Ind.= 

26 

GJil 

Ina.= 

27 

GJ20 

Ind.= 

30 

GJ27 

Ind. - 

31 

GJ32 

Ind.= 

32 

GI 

Ind.= 

33 

GI7 

Ind.= 

34 

GI13 

Ind.= 

35 

GI21 

Ind.= 

36 

GI25 

Ind.= 

40 

GI33 

Ind.= 

42 

GI36 

Ind.= 

43 

GI43 

Ind.= 

44 

GI50 

Ind.= 

45 

GI54 

Ind.= 

46 

GI61 

Ind.= 

47 

GI65 

Ind.= 

50 

GI71 

Ind.= 

51 
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IA 

GG 


(49) Ind 

0 

RJ 

GS12 

GS42 

= 0 

1 

RA 

RA3 

GC 


2 

RJ 

GS12 

GS6 


3 

RJ 

GS12 

GS27 


4 

RJ 

GS12 

GT2 


5 

MJ 

0 

GK 

(50)lnd 

6 

RJ 

GS12 

GS45 

= 1 

7 

MJ 

0 

GGl 

(50 Ind 

10 

RJ 

GS12 

GS42 

= 2 

11 

RA 

RA3 

GC1 


12 

RJ 

GS12 

GS32 


13 

RJ 

GS12 

GT60 


14 

MJ 

0 

GK 

(52) Ind 

15 

RJ 

GS12 

GS45 

= 3 

16 

MJ 

0 

GG11 

(53) Ind 

17 

RA 

RA3 

GC 

= 4 

20 

TP 

1121 

A 


21 

EJ 

TT3 

GG27 


22 

RJ 

GS12 

GS42 


23 

RJ 

GS12 

GS6 


24 

RJ 

GS12 

GS27 


25 

RJ 

GSl2 

GT70 


26 

MJ 

0 

GK 

<§) 

27 

RJ 

GS12 

GS60 


30 

TP 

115 

TT2 


31 

RJ 

GS12 

GS7 


32 

TP 

116 

TT2 


33 

LQ 

TT6 

25 


34 

TO 

RA3 

TT2 

(55) 

35 

RJ 

GS12 

GV4 


36 

TP 

1140 

TT2 


37 

RJ 

SI 

Sll 



CA 

GG40 



Generate Floating Point (cont.) 

To Sll 

Adv. current rel. add. by 4 in "u” 
and "v" 

To S2 
To S6 
To S28 

To S12 

To Sll 

Adv. current rel. add. by 3 in w u M 
and V' 

To S7 
To S44 

To S12 

Adv. current rel. add. by 4 in ”u” 
and "v H 

[FS 30000 30000] -> A 

Is floating subtract inst. in temp 3? 
No; to Sll 
To S2 
To S6 
To S46 

To Sl6 

[TV A 30000] temp 2 

To S2A 

[RA 30000 30000] -> temp 2 

Current relative address to "u" of 
temp 2 
To R3 

[FA Q 30000] temp 2 

Store inst. in temp 2 in routine image 
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TA 

GG40 


(56) Ind 
= 5 

40 

MJ 

0 

GK 

41 

RA 

RA3 

GC-1 


42 

RJ 

GS12 

GS62 


43 

RJ 

GS12 

GS32 


44 

RJ 

GS12 

GT64 

(57) 

45 

MJ 

0 

[30000] 

6m Ind 

46 

RA 

RA3 

GC2 

= 7 

47 

MJ 

0 

GG43 

(59) Ind 

50 

RA 

RA3 

GCl 

= 10 

51 

RJ 

GS12 

GS62 


52 

RJ 

GS12 

GS32 


53 

RJ 

GS12 

GT52 


54 

MJ 

0 

GG45 

(5))lnd 

55 

TP 

1121 

A 

= 6 

56 

EJ 

TT3 

GG64 


57 

RA 

RA3 

GCl 


60 

RJ 

GS12 

GS42 


61 

RJ 

GS12 

GS32 


62 

RJ 

GS12 

GT50 


63 

MJ 

0 

GK 

© 

64 

RA 

RA3 

GC 


65 

RJ 

GS12 

GS60 


66 

RJ 

GS12 

GS70 


67 

RJ 

GS12 

GS32 


70 

TP 

1140 

TT3 


71 

LQ 

TT5 

25 


72 

TV 

Q 

TT3 


73 

RJ 

GS12 

GT43 


74 

MJ 

0 

GK 



CA 

GG75 



Adv. current rel. address by 3 in 
V' and V* 

To Sl7 
To S7 
To S45 
Switch(A) 


Adv. current rel. address by 3 in "u" 
and V* 

To S17 
To S7 
To S42 
To switch(X) 

|FS 30000 30000]-^ A 
Is floating subt. inst. in temp 3? 

No, advance current relative address 
by three 
To Sll 
To S7 
To S41 


To Sl6 
To S20 
To S7 

[FA Q 30000D -> temp 3 

Operand symbol from M u” of temp 5 to 
"v M of temp 3 
To S39A 
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/—\ 


IA 

GH 


Generate Floating Point (cont.) 

(62) Ind 

0 

RA 

RA3 

GCl 

Adv. current rel. address by 3 in "u" 

= 11 





and "v" 


1 

RJ 

GS12 

GS13 

To S3 


2 

RJ 

GS12 

GT73 

To S47 


3 

RJ 

GS12 

GT16 

To S32 


4 

MJ 

0 

GG45 

To switch(T) 

(63) Ind 

5 

RA 

RA3 

GC3 

Adv. current rel. address by 1 in "u" 

= 12 





and V 


6 

RJ 

GS12 

GT54 

To S43 


7 

MJ 

0 

GK3 


(64) Ind 

10 

RA 

RA3 

GCl 

Adv. current rel. address by 3 in "u" 

= 13 





and M v" 


11 

RJ 

GS12 

GS13 

To S3 


12 

RJ 

GS12 

GS27 

To S6 


13 

MJ 

0 

GH3 


(6£) Ind 

14 

RA 

RA3 

GCl 

Adv. current rel. address by 3 in ”u” 

= 14 





and V 


15 

RJ 

GS12 

GS13 

To S3 


16 

RJ 

GS12 

GT73 

To S47 


17 

RJ 

GS12 

GT30 

To S35 


20 

MJ 

0 

GG45 

To switch(J) 

(66) Ind 

21 

RA 

RA3 

GC3 

Adv. current rel. address by 1 in "u" 

= 15 





and "v" 


22 

RJ 

GS12 

GT33 

To S36 


23 

MJ 

0 

GK3 


@Ind 

24 

TP 

1121 

A 

[FS 30000 30000] -► A 

= 16 

25 

EJ 

TT3 

GH31 

Is floating subt. inst. in temp 3? 


26 

RA 

RA3 

GC3 

No, advance current relative address 






by one 


27 

RJ 

GS12 

GT36 

To S37 


30 

MJ 

0 

GK3 


® 

31 

RA 

RA3 

GC2 

Adv. current rel. address by 2 in "u" 






and V* 


32 

RJ 

GS12 

GS60 

To S16 


33 

TP 

1140 

TT2 

[FA Q 30000] temp 2 


34 

LQ 

TT5 

25 

Operand symbol from "u" of temp 5 to 






"v H of temp 5 


35 

RJ 

GT13 

GT5 

To S29 


36 

RJ 

SI 

SI1 

Store inst in temp 2 in routine image 


37 

MJ 

0 

GK3 




CA 

GH40 
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S -N. 


IA 

GH40 


Generate Floating Point (cont.) 

(69) Ind 

40 

RA 

RA3 

GC 

Adv. current rel. address by 4 

— IT 

— i- i 





and V* 


41 

RJ 

GS12 

GS42 

To Sll 


42 

RJ 

GSl2 

GS47 

To S13 


43 

RJ 

GS12 

GS32 

To S7 

✓-*v 

44 

MJ 

0 

GH54 


(70) Ind 

45 

RA 

RA3 

GC 

Adv. current rel. address by 4 

= 20 





and V* 


46 

RJ 

GS12 

GS45 

To S12 


47 

MJ 

0 

GH42 


(7l) Ind 

50 

RA 

RA3 

GC 

Adv. current rel. address by 4 

= 21 





and "v" 


51 

RJ 

GS12 

GS35 

To S9 


52 

RJ 

GS12 

GS42 

To Sll 


53 

RJ 

GS12 

GS40 

To S10 


54 

RJ 

GSl2 

GT41 

To S38 


55 

MJ 

0 

GG45 

To switch(A) 

(72) Ind 

56 

RA 

RA3 

GC5 

Adv. current rel. address by 6 

= 22 





and V* 


57 

RJ 

GS12 

GS42 

To Sll 


60 

RJ 

GS12 

GS47 

To S13 


61 

RJ 

GS12 

GS6 

To S2 


62 

RJ 

GS12 

GS13 

To S3 


63 

RJ 

GS12 

GS27 

To S6 


64 

RJ 

GS12 

GT14 

To S31 


65 

MJ 

0 

GG45 

To switch(X) 

(73) Ind 

66 

RA 

RA3 

GC5 

Adv. current rel. address by 6 

= 23 





and n v" 


67 

RJ 

GS12 

GS45 

To S12 


70 

RJ 

GS12 

GS47 

To S13 


71 

MJ 

0 

GH61 


(74) Ind 

72 

RA 

RA3 

GC5 

Adv. current rel. address by 6 

-24 





and "v" 


73 

RJ 

GS12 

GS6 

To S2 


74 

RJ 

GS12 

GS53 

To S14 


75 

RJ 

GSl2 

GS17 

To S4 


76 

RJ 

GS12 

GS42 

To Sll 


77 

MJ 

0 

GH63 




CA 

GH100 




"u” 


"u" 


”u" 
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IA 

GT 


Generate Floating 

Pt. (Function 61— 

- type) 

(7 5) Ind 

0 

RA 

RA3 

GC4 

Adv. current 

rel. add. by 5 in 

"u" 

= 33 





and "v" 




1 

RJ 

GS12 

GS6 

To S2 




2 

RJ 

GS12 

GS42 

To Sll 




3 

RJ 

GS12 

GS13 

To S3 




4 

RJ 

GS12 

GS27 

To S6 




5 

RJ 

GS12 

GT14 

To S31 




6 

MJ 

0 

GG45 

To switch(A) 



(76) Ind 

7 

RA 

RA3 

GC4 

Adv. current 

rel. add. by 5 in 

"u" 

= 34 





and "v" 




10 

RJ 

GS12 

GS6 

To S2 




11 

RJ 

GS12 

GS45 

To Sl2 




12 

MJ 

0 

GI3 




(77) Ind 

13 

RA 

RA3 

GC 

Adv. current rel. add. by 4 in 

V* 

= 35 





and "v" 




14 

RJ 

GS12 

GS72 

To S21 




15 

RJ 

GS12 

GS42 

To Sll 




16 

RJ 

GS12 

GS32 

To S7 




17 

RJ 

GS12 

GT46 

To S40 




20 

MJ 

0 

GG45 

To switch(A) 



(7$ Ind 

21 

RA 

RA3 

GC 

Adv. current 

rel. add. by 4 in 

"u" 

= 36 





and ”v" 




22 

RJ 

GSl2 

GS72 

To S21 




23 

RJ 

GS12 

GS45 

To Sl2 




24 

MJ 

0 

GI16 




(79) Ind 

25 

RA 

RA3 

GC 

Adv. current 

rel. add. 4 in "u” 

' and "v" 

= 40 

26 

RJ 

GS12 

GS23 

To S8 




27 

RJ 

GS12 

GS62 

To S17 




30 

RJ 

GS12 

GS32 

To S7 




31 

RJ 

GS12 

GT42 

To S39 




32 

MJ 

0 

GG45 

To switch(A) 



(80) Ind 

33 

RA 

RA3 

GC1 

Adv. current 

rel. add. by 3 in 

"u" 

= 42 





and "v" 




34 

RJ 

GS12 

GS23 

To S8 




35 

MJ 

0 

GI30 




(81) Ind 

36 

RA 

RA3 

GCl 

Adv. current 

rel. add. by 3 in 

"u" 

= 43 





and "v" 




37 

RJ 

GS12 

GS6 

To S2 




CA 

GI40 







1422 





IA 

GI40 


Gen. Fl. Pt. (Function 61—— Type) (cont.) 


40 

RJ 

GS12 

GS13 

To S3 


41 

RJ 

GS12 

GT14 

To S31 

(§2) 

42 

MJ 

0 

r 300001 

Switch^B) 

(S3) Ind 

43 

RA 

RA3 

GC 

Adv. current rel. add. by 4 in M u" 

= 44 





and n v" 


44 

RJ 

GS12 

GS6 

To S2 


45 

RJ 

GS12 

GS13 

To S3 


46 

RJ 

GS12 

GT73 

To S47 


47 

MJ 

0 

GH64 


TnH 

e:n 

UV 

DA 

DAQ 

xinu 

GC2 

\A. r ...mA.* 1 _1J U.. r\ •_ M ..11 C M. 

nuv. buiicut id, duu. vy ill U Cr 

V 45 

51 

RJ 

GS12 

GS6 

To S2 


52 

RJ 

GS12 

GT2 

To S28 


53 

MJ 

0 

GK3 


(§5) Ind 

54 

RA 

RA3 

GC 

Adv. current rel. add. by 4 in "u" 

-46 





and "v" 


55 

RJ 

GS12 

GS6 

To S2 


56 

RJ 

GS12 

GS13 

To S3 


57 

RJ 

GS12 

GS27 

To S6 


60 

MJ 

0 

GH64 


(86) Ind 

61 

RA 

RA3 

GC2 

Adv. current rel. add. by 2 in "u" 

= 47 





and V 


62 

RJ 

GS12 

GS13 

To S3 


63 

RJ 

GS12 

GT16 

To S35 


64 

MJ 

0 

GI42 

To switch(B) 

(87) Ind 

65 

RA 

RA3 

GC2 

Adv. current rel. add. by 2 in "u M 

= 50 





and V' 


66 

RJ 

GS12 

GS13 

To S2 


67 

RJ 

GS12 

GT30 

To Sl9 


70 

MJ 

0 

GT42 

To switch(B) 

(88) Ind 

71 

TP 

1121 

A 

[FS 3000^30000] -> A 

= 51 

72 

EJ 

TT3 

GI77 

Is floating subtract inst. in temp 3? 


73 

RA 

RA3 

GC2 

No, advance current relative address 






by two 


74 

RJ 

GS12 

GS6 

To S2 


75 

RJ 

GS12 

GT70 

To S46 


76 

MJ 

0 

GK3 



77 

RA 

RA3 

GC1 

Adv. current rel. add. by 3 in ,f u M 






and "v" 



CA 

GT100 





IA 

GI100 




100 

RJ 

GS12 

GS101 

To S23 


101 

RJ 

GS12 

GS60 

To S16 


102 

TP 

1140 

TT2 

[FA Q 30000] temp 2 


103 

RJ 

SI 

SI1 

Store instruction in temp 2 in 






routine image 


104 

MJ 

0 

GK3 




CA 

GI105 
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TA 

GJ 


Generate Floating 

Point (cont.) 


(90) Ind 

0 

RA 

RA3 

GC4 

Adv. current 

rel. 

address by 5 

in 

"u" 

= 25 





and "v" 






1 

RJ 

GS12 

GS42 

To Sll 






2 

RJ 

GS12 

GS47 

To S13 






3 

RJ 

GS12 

GS23 

To S8 






4 

RJ 

GS12 

GS32 

To S7 






5 

MJ 

0 

GJ16 






(91) Ind 

6 

RA 

RA3 

GC4 

Adv. current 

rel. 

address by 5 

in 

V' 

= 26 





and "v" 






7 

RJ 

GSl2 

GS45 

To S12 






10 

MJ 

0 

GJ2 






@2) Ind 

11 

RA 

RA3 

GC4 

Adv. current 

rel. 

address by 5 

in 

M u" 

= 27 





and V' 






12 

RJ 

GS12 

GS32 

To S7 






13 

RJ 

GS12 

GS6 

To S2 






14 

RJ 

GS12 

GS42 

To Sll 






15 

RJ 

GS12 

GS27 

To S6 






16 

RJ 

GS12 

GT42 

To S39 






17 

MJ 

0 

GG45 

To switch(X) 





^3) Ind 

20 

RA 

RA3 

GC4 

Adv. current 

rel. 

address by 5 

in 

"u" 

= 30 





and ”v" 






21 

RJ 

GS12 

GS42 

To Sll 






22 

RJ 

GS12 

GS47 

To S13 






23 

RJ 

GS12 

GS72 

To S21 






24 

RJ 

GS12 

GS32 

To S7 






25 

RJ 

GS12 

GT46 

To S40 * 






26 

MJ 

0 

GG45 

To Switch(A) 





@Ind 

27 

RA 

RA3 

GC4 

Adv. current 

rel. 

address by 5 

in 

v» 

= 31 





and V 






30 

RJ 

GS12 

GS45 

To Sl2 






31 

MJ 

0 

GJ22 






(95) Ind 

32 

RA 

RA3 

GC4 

Adv. current 

rel. 

address by 5 

in 

"u" 

= 32 





and "v" 






33 

RJ 

GS12 

GS72 

To S2l 






34 

RJ 

GS12 

GS35 

To S9 






35 

RJ 

GS12 

GS42 

To Sll 






36 

RJ 

GS12 

GS40 

To S10 






37 

MJ 

0 

GJ25 








CA 

GJ40 
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® 

(97) 

© 




0 

IA 

TU 

GK 

RA10 

GK2 

1 

RA 

RA10 

GC6 

2 

TV 

[30000] TT6 

3 

TP 

1133 

TT4 

4 

TP 

1141 

TT3 

5 

RJ 

GK34 

GK13 

6 

TP 

TT3 

A 

7 

EJ 

H41 

GK12 

10 

RA 

RA3 

GC3 

11 

RJ 

GS12 

GT14 

12 

MJ 

0 

GE 

13 

n rv 

TT6 

TT1 

14 

TO 

RA2 

GK16 

15 

TP 

TT1 

A 

16 

RP 

[30000] GK25 

17 

EJ 

RL 

GK20 

20 

TP 

RA2 

A 

21 

SS 

Q 

0 

22 

SA 

RA5 

0 

23 

TV 

A 

TT3 

24 

MJ 

0 

GK34 

25 

TO 

RA 

GK26 

26 

RP 

[30000] GK30 

27 

EJ 

XQ 

GK34 

30 

RA 

RA6 

GC3 

31 

TJ 

RA7 

GK33 

32 

TP 

A 

RA7 

33 

TV 

A 

TT3 

34 

MJ 

0 

[3000( 


CA 

GK35 


Generate Floating Point (cont.) 
Address of next word in Expanded 
List "u" of TV 

Advance address in Expanded List by 
1 in "u* 


Partial result symbol from Expanded 
List to V of temp 6 
Set register indicator to M Q M in "u* 1 
and V* 


[TP Q A] —» temp 3 
To K1 


Inst, in temp 3 A 

Is inst. in temp 3 = [TP Q A] ? 

No; advance current relative address 
by one 

To S31 (store instruction in temp 3 
in routine image) 


Partial result symbol from *V* of 
temp 6 to V of temp 1 
Preset repeat to search Redundant 
P.R. List 

Partial result symbol to ”v M of A 
Is partial result symbol in Redundant 
P.R. List? 

Yes, to GK20; no, to GK25 

jn to M u" and V* of A 

jn - (jn- r) to "v" of A 

Base redundancy temp callword + r to 

M v" of A 

Redundancy temp callword to "v" of 

temp 3 

Preset repeat to search "Q” List 
Is partial result symbol in W Q H List? 
Yes, to GK34; no, to GK30 
Advance current reusable temp callword 
by one 

Is highest temp callword used > current 
callword? 

No, retain current temp callword as 
highest used 

Reusable temp callword to w v" of temp 3 
Exit 


1425 






0 

IA 

TP 

GL 

GC7 

Q 

Generate Library Routine Reference 

Mask for rightmost octal digit of "v" 

1 

QT 

TT5 

TT7 

Q 

Number of arguments for library routine 

2 

TP 

GC32 

A 

to temp 7 

QO 0 3 J A 

3 

AT 

TT7 

TT10 

Set 10 line counter ->10 line for last 

4 

TJ 

TT7 

GL16 

argument 

Have all arguments been generated? 

5 

RA 

RA3 

GC3 

Yes, advance current relative address 

6 

TP 

1114 

TT2 

by one 

0 *J_] -► temp 2 

7 

SP 

TT5 

17 

Library routine callword from M v" of 

10 

TO 

A 

TT2 

temp 5 to "u" of A 

Library callword to **u M of RJ in temp 2 

11 

TV 

TT5 

IT 2 

Library callword to "v" of RJ in temp 2 

12 

RJ 

SI 

SI1 

Store inst. in temp 2 in routine image 

13 

TP 

1143 

TT2 

[jLO 00002 00000] to temp 2 

14 

RJ 

SI 

SI1 

Store "10" line in temp 2 in routine 

15 

MJ 

0 

GK 

image 

16 

RJ 

GS5 

GS 

Next word from Expanded List to temp 6 

17 

LQ 

A 

25 

Indicator from op. code of word to 

20 

AT 

1116 

A 

"u" of A 

MJ indicator 00000 to "A” register 

21 

RP 

30006 

GL31 

Search list for indicator 

22 

TJ 

GL23 

GL23 

Jump according to indicator 

23 

MJ 

0 

GM 

Ind.= 0 

24 

MJ 

1 

GM12 

Ind.= 1 

25 

MJ 

2 

GM17 

Ind.= 2 

26 

MJ 

3 

GM25 

Ind. = 3 

27 

MJ 

4 

GM30 

Ind.= 4 

30 

MJ 

5 

GM43 

Ind. = 5 

31 

MJ 

33 

GM46 

Ind.= 33 


CA 

GL32 
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Ind 


Ind 


Ind 


Ind 


Ind 



IA 

GM 


Generate Library Routine Ref. (cont.) 

0 

RA 

RA3 

GC3 

Adv. current rel. add. by 1 in "u" 
and V 

1 

TP 

Til 

TT2 

[TP 30000 Aj —> temp 2 

2 

TV 

TT5 

TT2 

Library routine callword to "v" of 

TP inst. in temp 2 

3 

TO 

TT6 

TT 

Argument callword from "u" of temp 6 
to ”u” of temp 1 

4 

RJ 

GT27 

GT22 

To S34 

5 

RJ 

ST 

ST1 

Store inst. in temp 2 in routine image 

6 

TP 

TT10 

TT2 

"10" line for argument to temp 2 

7 

RJ 

ST 

ST1 

Store "10 line" in temp 2 in routine 
image 

10 

RS 

TT10 

GCll 

Decrease "10" line counter by one 

11 

MJ 

0 

GL4 


12 

RA 

RA3 

GC3 

Adv. current rel. add. by 1 in "u" 
and "v" 

13 

TP 

Til 

TT2 

[TP 30000 A] temp 2 

14 

TO 

TT4 

TT2 

"u" of register indicator to "u” of 

TP inst. in temp 2 

15 

TV 

TT5 

TT2 

Library routine callword to "v" of TP 
inst. in temp 2 

16 

MJ 

0 

GM5 


17 

RA 

RA3 

GC 

Adv. current rel. add. by 4 in "u" 
and "v" 

20 

RJ 

GS12 

GS56 

To S15 

21 

RJ 

GS12 

GS106 

To S2 

22 

RJ 

GS12 

GS27 

To S6 

23 

TP 

Til 

TT2 

[TP 30000 Aj temp 2 

24 

MJ 

0 

GM15 


25 

RA 

RA3 

GC 

Adv. current rel. address by 4 in "u" 
and "v" 

26 

RJ 

GS12 

GS45 

To S12 

27 

MJ 

0 

GM21 


30 

RA 

RA3 

GCl 

Adv. current rel. address by 3 in "u" 
and "v" 

31 

RJ 

GS12 

GS56 

To S15 

32 

RJ 

GS12 

GS32 

To S7 

33 

TP 

III 

TT3 

[TP 30000 A] —> temp 3 

34 

TO 

TT6 

TT3 

Argument callword to "u" of TP inst. 
in temp 3 

35 

TV 

TT5 

TT3 

Library routine callword to "v" of TP 
inst. in temp 3 

36 

RJ 

GS12 

GT43 

To S39A (inst. in temp 3 to relative 
constant image) 

37 

TP 

TT10 

TT3 

"10" line for argument to temp 3 


CA 

GM40 
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IA 

GM40 




40 

RJ 

SI 

SI12 

M 10 M line in temp 3 to relative 
constant image 


41 

RS 

TT10 

GCll 

Decrease M 10 M line counter by one 


42 

MJ 

0 

GL4 


(U2) Ind 

43 

RA 

RA3 

GCl 

Adv. current rel. add. by 3 in 'V' 


44 

RJ 

GSl2 

GS45 

and "v" 

To Sl2 


45 

MJ 

0 

GM32 


© Ind 

46 

RA 

RA3 

GC2 

Adv. current rel. add. by 2 in "u" 

^3 

47 

RJ 

GS12 

GS106 

and V 

To S25 


50 

MJ 

0 

GM23 




CA 

GM51 




1428 



(y) fi. 

0 

IA 

TP 

GN 

H3 

TT3 

unary 

1 

MJ 

0 

GN3 

minus l2 

TP 

112 

TT3 

(113 Fl. 
Abs. Value. 

3 

RJ 

GS5 

GS 

T~ 

LQ 

A 

25 

(h& 


AT 

1116 



5 

A 


6 

RP 

30006 

GN16 


7 

TJ 

GN10 

GN10 

i r\ 

-—. X\J 

M7 

mo 

A 

U 

rivn rr 

VJA X 1 

@ 11 

MJ 

1 

GN26 

W 12 

MJ 

2 

GN30 

13 

MJ 

3 

GN37 

14 

MJ 

12 

GN41 

15 

MJ 

15 

GN45 

. — 16 

MJ 

45 

GN47 

am Ind 17 

RJ 

GS12 

GV36 

H) 20 

RA 

RA3 

GC 

21 

RJ 

GS12 

GS6 

^ 22 

RJ 

GS12 

GS27 

(fl9) 23 

RJ 

GN56 

GN52 

W 24 

RJ 

GS12 

GT14 

25 

MJ 

0 

GE 

am Ind 26 

RJ 

GS12 

GS45 

H. 27 

MJ 

0 

GN20 

tf2l) Ind 30 

RJ 

GSl2 

GS36 

W 31 

RA 

RA3 

GCl 

32 

RJ 

GS12 

GS32 

33 

TO 

TT5 

TT3 

34 

RJ 

GN56 

GN52 

35 

RJ 

GS12 

GT43 

^ 36 

MJ 

0 

GE 

6.22) Ind 37 

RJ 

GS12 

GS45 

^3 


CA 

GN40 



Generate Floating Neg. and Abs. Value 
[TN 30000 QJ —> temp 3 

(TM 30000 Ql— » temp 3 
Next word from Expanded List to temp 6 
Indicator from op. code of word to "u" 
of A 
Form 

Search list for indicator 
Jump according to indicator 

— A 

X11U. — KJ 

Ind. = 1 
Ind. = 2 
Ind. = 3 
Ind. = 12 
Ind. = 15 
Ind. = 45 
To S48 

Adv. current rel. address by 4 in "u” 
and "v” 

To S7 
To S6 
To NI 

To S3l (store instruction in temp 3 in 
routine image) 

To Sl2 

To S48 

Adv. current rel. address by 3 in ”u M 
and ”v" 

To S7 

Operand callword from M u" of temp 5 

to *V* of temp 3 

To® 

To S39A (inst. from temp 3 to relative 
constant image) 

To S12 


MJ indicator 00000 in A 


1429 





40 

IA 

MJ 

GN40 

0 

GN31 

(L23J Ind 

41 

RJ 

GT27 

GT21 

= 12 

42 

TO 

TT2 

TT3 


43 

RA 

RA3 

GC3 


44 

MJ 

0 

GN23 

Ind = 

45 

TO 

TT4 

IT 3 

15 

46 

MJ 

0 

GN43 

Ind = 

47 

RA 

RA3 

GC2 

45 

50 

RJ 

GS12 

GS6 


51 

MJ 

0 

GN23 

© 

52 

RJ 

GK34 

GK13 


53 

TV 

TT3 

TT4 


54 

SP 

TT3 

17 


55 

TO 

A 

TT4 


56 

MJ 

0 

[30000]_ 



CA 

GN57 



Gen. FI. Neg. and Abs. Val. (cont.) 

To S33 

Operand or temp callword to "u M of 
temp 3 

Advance current relative address by one 

"u" of register indicator to "u" of 
temp 3 

Advance current relative address by two 
To S2 

To Kl 

Set V‘ of register indicator 
Set "u" of register indicator 


1430 







0 

TA 

RJ 

GP 

GP65 

GP5 

Generate Int. Power Inst. 

To P2 

1 

MJ 

0 

GK3 


o 

£, 

RJ 

GP65 

GPS 

DO 
iu i. 4 

3 

RJ 

GS12 

GU 

To S49 

4 

MJ 

0 

GK3 


5 

RJ 

GS5 

GS 

Next word from Expanded List to temp 6 

6 

LQ 

A 

25 

Indicator from op. code of word to "u” 

7 

AT 

1116 

A 

of A 

Form MJ indicator 00000 in "A" 

10 

RP 

30005 

GP17 

Search list for indicator 

11 

TJ 

GP12 

GP12 

Jump according to indicator 

12 

MJ 

0 

GP20 

Ind. = 0 

13 

MJ 

4 

GP23 

Ind. = 4 

14 

MJ 

5 

GP35 

Ind. = 5 

15 

MJ 

10 

GP46 

Ind. = 10 

16 

MJ 

11 

GP57 

Ind. = 11 

17 

MJ 

33 

GP61 

Ind. = 33 

20 

RA 

RA3 

GC3 

Adv. current rel. address by 1 in M u M 

21 

RJ 

GS12 

GO 34 

and "v" 

To S56 

22 

MJ 

0 

GP65 


23 

RA 

RA3 

GC 

Adv. current rel. address by 4 in "u M 

24 

RJ 

GS12 

GV36 

and V* 

To S48 

25 

RJ 

GS12 

G054 

To S59 

26 

RJ 

GS12 

GS32 

To S7 

27 

TP 

1122 

TT3 

[FM 30000 30000] -^temp 3 

30 

TO 

TT5 

TT3 

Operand callword to "u M of FM inst. 

31 

LQ 

TT5 

25 

in temp 3 

32 

TV 

Q 

TT3 

Same callword to *V* of FM inst. in 

33 

RJ 

GS12 

GT43 

temp 3 

To S39A (inst. from temp 3 to relative 

34 

MJ 

0 

GP65 

constant image) 

35 

RA 

RA3 

GCl 

Advance current rel. address by 3 in 

36 

RJ 

GSl2 

G024 

"u" and "v" 

To S54 

37 

RJ 

GS12 

GS21 

To S5 


CA 

GP40 




1431 





IA 

GP40 


40 

RJ 

GS12 

GS64 

41 

RA 

RA3 

GC3 

42 

TP 

1134 

TT2 

43 

RJ 

ST 

SI1 

44 

RJ 

GO 33 

G027 

45 

MJ 

0 

GP65 

(l3y Ind 46 

RJ 

GS12 

GS66 

= 10 47 

RA 

RA3 

GC 

50 

RJ 

GS12 

GS76 

51 

RJ 

GS12 

GS21 

52 

RJ 

GS12 

GS64 

53 

RA 

RA3 

GC3 

54 

TP 

1134 

TT2 

55 

RJ 

sr 

sn 



56 

MJ 

0 

GP65 

(0) Ind 

57 

RA 

RA3 

GCl 


60 

MJ 

0 

GP50 

^33) Ind 

61 

RA 

RA3 

GCl 

^3 

62 

RJ 

GS12 

GS6 


63 

RJ 

GS12 

GSlOl 


64 

RJ 

GS12 

G052 


65 

MJ 

0 

[30000] 



CA 

GP66 



Generate Int. Power Inst, (cont.) 

To S18 

Adv. current rel. address by 1 in w u rt 
and V* 

fM A A] to temp 2 
Store inst. in temp 2 in routine image 
To S55 

To Sl9 

Adv. current rel. address by 4 in M u M 
and "v" 

To S22 
To S5 
To Sl8 

Adv. current rel. address by 1 in "u" 
and "v" 

[FM A a] to temp 2 

Store instruction in temp 2 in routine 

image 


Adv. current rel. address by 3 in "u" 
and M v" 

Adv. current rel. address by 3 in “u** 
and "v" 

To S2 
To S23 
To S58 
Exit 


1432 




IA 

GQ 


Generate Int. Power Inst, (cont.) 

POW 0 

RJ 

GQ54 

GQ5 

To P3 



1 

MJ 

0 

GK3 




POW 2 

RJ 

GQ54 

GQ5 

To P3 



3 

RJ 

GS12 

GO 

To S49 


4 

MJ 

0 

GK3 




5 

RJ 

GS5 

GS 

Next word from Expanded List to temp 6 

6 

LQ 

A 

25 

Indicator from op. code of 

word to V' 





of A 



7 

AT 

IT16 

A 

Form 1 

MJ indicator 00000 

| in "A” 

10 

RP 

30005 

GQ17 

Search list for indicator 


11 

TJ 

GQ12 

GQ12 

Jump according to indicator 

12 

MJ 

0 

GQ20 

Ind.= 

0 


13 

MJ 

4 

GQ25 

Ind.= 

4 


14 

MJ 

5 

GQ34 

Ind.= 

5 


15 

MJ 

10 

GQ42 

Ind.= 

10 


16 

MJ 

11 

GQ46 

Ind.= 

11 


17 

MJ 

33 

GQ51 

Ind.= 

33 


Ind 20 

RA 

RA3 

GC2 

Adv. < 

current rel. address by 2 in M u" 





and ” 

v" 


21 

RJ 

GS12 

G034 

To S56 


22 

TU 

ir33 

TT2 

”Q" address to *V* of instruction in 





temp 2 


23 

RJ 

SI 

SI1 

Store 

instruction in temp 2 in routine 





image 



24 

MJ 

0 

GQ54 




Ind 25 

RA 

RA3 

GCl 

Adv. i 

current rel. address by 3 in M u" 





and " 

v” 


26 

RJ 

GSl2 

GV36 

To S48 


27 

RJ 

GSl2 

GS32 

To S7 



30 

RJ 

GSl2 

GU14 

To S52 


31 

RA 

RA3 

GC2 

Advance current rel. address by 2 in 





"u" and "v” 


32 

RJ 

GSl2 

G010 

To S51 


33 

MJ 

0 

GQ55 




Ind 34 

RA 

RA3 

GCl 

Adv. 

current rel. address by 3 in "u” 





and " 

v° 


35 

RJ 

GS12 

GU24 

To S54 


36 

RJ 

GO 33 

G027 

To S55 


37 

RJ 

GS12 

GS21 

To S5 




CA 

GQ40 










TA 

GQ40 



40 

RJ 

GS12 

GO 20 


41 

MJ 

0 

GQ31 

Ind = 

42 

RA 

RA3 

GC 

10 

43 

RJ 

GS12 

GS66 


44 

RJ 

GS12 

GS76 


45 

MJ 

0 

GQ37 

Ind = 

46 

RA 

RA3 

GCl 

11 

47 

RJ 

GS12 

GS76 


50 

MJ 

0 

GQ37 

Ind = 

51 

RA 

RA3 

GC2 

33 

52 

RJ 

GS12 

GS6 


53 

MJ 

0 

GQ40 


54 

MJ 

0 

[30000] 


55 

RJ 

GS12 

GU4 


56 

MJ 

0 

GQ54 



CA 

GQ57 



Generate Int. Power Inst, (cont.) 

To S53 

Adv. current rel. address by 4 in "u" 
and "v H 
To S19 
To S22 

Adv. current rel. address by 3 in "u" 
and "v" 

To S22 

Adv. current rel. address by 2 in ”u" 
and "v" 

To S2 

Exit 
To S50 
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A6) Ind 



Ind 



IA 

GR 


Generate Xnt. Power Inst, (cont.) 

0 

RJ 

GS5 

GS 

Next word from Expanded List to temp 6 

1 

LQ 

A 

25 

Indicator from op. code of word to "u” 
of A 

2 

AT 

1X16 

A 

From !MJ indicator ! 00000 to "A” 

3 

RP 

30006 

GR13 

Search list for indicator 

4 

TJ 

GR5 

GR5 

Jump according to indicator 

5 

MJ 

0 

GR14 

Ind.= 0 

6 

MJ 

1 

GR21 

Ind.= 1 

7 

MJ 

4 

GR25 

Ind.= 4 

10 

MJ 

5 

GR36 

Ind.= 5 

i ■» 

ii 

If T 

JXUJ 

T A 

1U 

An A a 

UKOU 

Ind.- 10 

12 

MJ 

11 

GR53 

Ind.= 11 

13 

MJ 

33 

GR57 

Ind.= 33 

14 

TP 

1123 

TT2 

[FD 30000 30000] temp 2 

15 

LQ 

TT5 

25 

Operand callword from ”u” of temp 5 to 
"v" of temp 5 

16 

RJ 

GT13 

GT5 

To S29 

17 

RA 

RA3 

GC3 

Advance current relative address by one 

20 

MJ 

0 

GR45 


21 

RA 

RA3 

GC3 

Advance current relative address by one 

22 

TP 

1123 

TT2 

[FD 30000 30000] -»temp 2 

23 

TV 

TT4 

TT2 

^v" of register indicator -*» n v” of 
temp 2 

24 

MJ 

0 

GR45 


25 

RA 

RA3 

GCl 

Advance current relative address by 
three 

26 

RJ 

GS12 

GS66 

To Sl9 

27 

RJ 

GS12 

GS32 

To S7 

30 

TP 

1123 

TT3 

[FD 30000 30000] temp 3 

31 

TO 

TT6 

TT3 

Constant callword for floating point 
one to "u" of temp 3 

32 

LQ 

TT5 

25 


33 

TV 

Q 

TT3 

Operand callword to "v" of FD inst. in 
temp 3 

34 

RJ 

GS12 

GT43 

To S39A (inst. from temp 3 to relative 
constant image) 

35 

MJ 

0 

GK3 


36 

RA 

RA3 

GCl 

Advance current relative address by 
three 

37 

TP 

1132 

TT2 

[SA 30000 0] temp 2 


CA 

GR40 
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IA 

GR40 



40 

TU 

RA4 

TT2 


41 

RJ 

SI 

sn 


42 

RJ 

GS12 

GS17 


43 

RJ 

GU33 

GU27 

040 

44 

TP 

1123 

TT2 

(14^ 

45 

TO 

TT6 

TT2 


46 

RJ 

SI 

SI1 


47 

MJ 

0 

GK3 

(Ufa Ind 

50 

RA 

RA3 

GCl 

- 10 

51 

RJ 

GS12 

GSlOl 


52 

MJ 

0 

GR62 

(15D Ind 
^-11 

53 

RA 

RA3 

GCl 


54 

RJ 

GS12 

GS114 


55 

RJ 

GS12 

GS17 


56 

MJ 

0 

GR44 

QL5g Ind 
-33 

57 

RA 

RA3 

GC2 


60 

RJ 

GS12 

GSlOl 


61 

MJ 

0 

GR44 


62 

TP 

116 

TT2 


63 

RJ 

GT13 

GT5 


64 

TO 

RA3 

TT2 


65 

RJ 

SI 

sn 


66 

MJ 

0 

GR44 



CA 

GR67 



Gen. Int. Power Inst, (cont.) 

Relative constant callword to "u H of 
temp 2 

Store inst. in temp 2 in routine image 
To S4 
To S55 

[FD 30000 30000] —► temp 2 
Constant callword for floating point 
one to M u H of temp 2 
Store inst. in temp 2 in routine image 

Adv. current rel. add. by 3 in "u M 
and "v" 

To S23 

Adv. current rel. add. by 3 in "u” 
and "v n 
To S26 
To S4 

Adv. current rel. address by 2 in M u w 
and "v" 

To S23 

CRA 30000 300003 to temp 2 
To S29 

Current relative address to "u" of 
temp 2 

Store instruction in temp 2 in 
routine image 
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IA 

GW 


a 53) POW 

0 

RJ 

GW64 

GW10 

Or to 63)1 

MJ 

0 

GK 

(L54) POW 

2 

RJ 

GW64 

GW10 

C=4 to 

c; 

IU 

RA10 

GW5 

-63) 

4 

RA 

RA10 

GC6 


5 

TP 

[30000] TT6 


6 

RJ 

GS12 

GO 


7 

MJ 

0 

GK3 

© 

10 

RJ 

GW73 


11 

LQ 

A 

25 


12 

AT 

ni6 

A 


13 

RP 

30005 

GW22 


14 

TJ 

GW15 

GW15 


15 

MJ 

0 

GW23 


16 

MJ 

4 

GW34 


17 

MJ 

5 

GW46 


20 

MJ 

10 

GW53 


21 

MJ 

11 

GW57 


22 

MJ 

33 

GW61 

453 Ind 

23 

RA 

RA3 

GCl 

= 0 

24 

RJ 

GS12 

GU34 


25 

RJ 

GSl2 

GU42 


26 

TP 

1135 

TT2 


27 

LQ 

TT5 

25 


30 

TV 

Q 

TT1 


31 

RJ 

GT13 

GT6 


32 

RJ 

SI 

SI1 


33 

MJ 

0 

GW64 

{[56) Ind 

34 

RA 

RA3 

GCl 


35 

RJ 

GSl2 

GV36 


36 

RJ 

GS12 

GS32 


37 

MJ 

0 

GW74 



CA 

GW40 



Generate Int. Power Inst, (cont.) 

To P4 

To P4 

Address of next word in Expanded 
List "u" of TP 
Advance address in Expanded List 
by 1 in "u" 

Next word in Expanded List to temp 6 
To S49 

Next word from Expanded List to temp 6 
Indicator from op. code of next word 

to "u " of A __ 

Form | MJ 1 indicator | 000001 in n A w 

Search list for indicator 

Jump according to indicator 

Ind. = 0 

Ind. = 4 

Ind. = 5 

Ind. = 10 

Ind. = 11 

Ind. = 33 

Adv. current rel. address by 3 
To S56 
To S57 

[FM Q 30000] temp 2 

Operand callword from M u M of temp 5 to 
V* of temp 1 
To S30 

Store inst. in temp 2 in routine image 

Advance current relative address by 
three 
To S48 
To S7 


1437 





40 

IA 

RA 

GW 40 
RA3 

GCl 


41 

RJ 

GS12 

G020 


42 

RJ 

GS12 

G010 


43 

RJ 

GS12 

G042 


44 

RJ 

GS12 

GO 4 


45 

MJ 

0 

GW64 

057) Ind 

46 

RA 

RA3 

GCl 

= 5 

47 

RJ 

GS12 

GD24 


50 

RJ 

GO 33 

G027 


51 

RJ 

GS12 

GS21 


52 

MJ 

0 

GW40 

0.58) Ind 

53 

RA 

RA3 

GC 



54 

RJ 

GS12 

GV31 


55 

RJ 

GS12 

GS76 


56 

MJ 

0 

GW51 

(J59) Ind 

/—N. 

57 

RA 

RA3 

GCl 

60 

MJ 

0 

GW55 

fl.60) Ind 

61 

RA 

RA3 

GC2 

-33 


62 

RJ 

GS12 

GS6 


63 

MJ 

0 

GW40 


64 

MJ 

0 

[30000] 

© 

65 

TO 

RA10 

GW67 


66 

RA 

RA10 

GC6 


67 

TP 

[30000] TT6 


70 

TO 

RA10 

GW72 


71 

TP 

GClO 

Q 


72 

QT 

[30000] A 


73 

MJ 

0 

[30000] 


74 

RJ 

GS12 

G014 


75 

RA 

RA3 

GCl 


76 

MJ 

0 

GW42 



CA 

GW77 



Generate Int. Power Inst, (cont.) 

Adv. current rel. address by 3 in "u M 
and "v" 

To S53 
To S51 
To S57 
To S50 

Adv. current address by 3 in w u" and H v" 
To S54 
To S55 
To S5 

Adv. current rel. add. by 4 in "u" 
and "v" 

To R7 
To S22 

Adv. current rel. address by 3 in "u” 
and "v" 

Adv. current rel. address by 2 in w u H 
and "v" 

To S2 

Exit 

Preset address of next word in Expanded 
List 

Advance address in Expanded List by one 
Next word in Expanded List to temp 6 
Preset address of next word in Expanded 
List 

Indicator from op. code of this word to 
op. code of A 

To S52 

Advance current relative address by 
three 


1438 





IA 

GX 


POW 

0 

RJ 

GX67 

GX5 


1 

MJ 

0 

GK3 

POW 

2 

RJ 

GX67 

GX5 


Q 

u 

RJ 

GS12 

GO 


4 

MJ 

0 

GK3 


5 

TP 

GC32 

TT10 


6 

RJ 

GS5 

GS 


7 

W 

A 

25 


10 

AT 

ni6 

A 


11 

RP 

30006 

GX21 


12 

TJ 

GX13 

GX13 


13 

MJ 

0 

GX22 


14 

MJ 

1 

GX26 


15 

MJ 

4 

GX32 


16 

MJ 

5 

GX44 


17 

MJ 

10 

GX46 


20 

MJ 

11 

GX47 


21 

MJ 

33 

GX53 

Ind 

22 

RA 

RA3 

GC3 


23 

TP 

1130 

TT2 


24 

RJ 

GT27 

GT21 


25 

MJ 

0 

GX56 

Ind 

26 

RA 

RA3 

GC3 


27 

TP 

1130 

TT2 


30 

TO 

TT4 

TT2 


31 

MJ 

0 

GX56 

Ind 

32 

RA 

RA3 

GCl 


33 

RJ 

GS12 

GV36 


34 

RJ 

GSl2 

GS32 


35 

TP 

1130 

TT3 


36 

TO 

•rrs 

TT3 


37 

RJ 

GS12 

GT43 



CA 

GX40 



Generate Int. Power Inst. Ccont.) 
To PI 


To PI 
To S49 


Preset ”10” line counter to 
[10 00000 00003] 

Next word from Expanded List to temp 6 
Indicator from op. code of this word to 
u' 

Form 


" " of A 


MJ 1 indicator j 000001 in A 


Search list for indicator 
Jump according to indicator 
Ind. = 0 
Ind.= 1 
Ind.= 4 
Ind.= 5 
Ind.= 10 
Ind.= 11 
Ind.= 33 

Adv. current rel. address by 1 
and M v" 

[TP 30000 50051] -► temp 2 
To S33 


m 


V 


Advance current relative address by one 
[TP 30000 50051] temp 2 

"u" of register indicator to M u" of 
temp 2 

Adv. current rel. add. by 3 in "u" 
and "v" 

To S48 
To S7 

[TP 30000 50051] -*► temp 3 

Operand callword from 

"u H of temp 5 to "u" of temp 3 

To S39A (Inst, from temp 3 to relative 

constant image) 




40 

IA 

RA 

GX4Q 

TT10 

GCll 


41 

TP 

A 

TT3 


42 

RJ 

SI 

SI12 

/ —V. 

43 

MJ 

0 

GX62 

A68) Ind 

44 

RJ 

GS12 

G024 

=:5 

45 

MJ 

0 

GX72 

A69) Ind 

46 

RJ 

GS12 

GX70 

7^10_ 

J 47___ 

RJ 

GS12 

GS76 

J70) Ind 
=^11_ 

/50 

RA 

RA3 

GCl 


r 51 

RJ 

GS12 

GS21 

-' 

52 

MJ 

0 

GX55 

Ind = 

53 

RA 

RA3 

GC2 

33 

54 

RJ 

GS12 

GS6 

f64) 

55 

TP 

1130 

TT2 

(0) 

56 

RJ 

SI 

SI1 


57 

RA 

TT10 

GCll 


60 

TP 

A 

TT2 

/—s. 

61 

RJ 

SI 

SI1 

m 

62 

RA 

RA3 

GC3 

v_ S 

63 

TP 

1114 

TT2 


64 

RJ 

SI 

SI1 


65 

TP 

1143 

TT2 


66 

RJ 

SI 

SI1 


67 

MJ 

0 

[30000] 


70 

RA 

RA3 

GC3 


71 

MJ 

0 

GV31 


72 

RJ 

GD33 

GU27 


73 

MJ 

0 

GX50 



CA 

GX74 



Gen. Int. Power (cont.) 

Advance "10" line counter by one 
"10" line in "A" to temp 3 
"10" line in temps 3 to relative 
constant image 

To S54 


To S22 

Advance current relative address by 

three 

To S5 

Advance current relative address by 

two 

To S2 

|TP 30000 50051] to temp 2 
Store inst. in temp 2 in routine image 
Advance ”10" line counter by one in "v" 
"10” line in A to temp 2 
Store inst. in temp 2 in routine image 
Advance current relative address by one 
[RJ 50051 50051] to temp 2 
Store inst. in temp 2 in routine image 
[lO 00002 00000]to temp 2 
Store ”10" line in temp 2 in routine 
image 
Exit 

Advance current relative address by one 
To R7 
To S55 


1440 




TA GA 

0 TP 1146 TT3 


Generate Store (by or -) Instruction 
£tP 30000 3000(3 instruction to 


1 

TV 

GC33 

GG45 

2 

TV 

GO 33 

GI42 

3 

RJ 

GS5 

GS 

4 

LQ 

A 

25 


temp 3 

Set switchfA) 

Set switchfiy 

Next word irom Expanded List to temp 6 
Indicator from op. code of this word to 
"u" of A 


5 

AT 

1116 

A 

Form MJ indicator 00000 

6 

RP 

30042 

GA52 

Search list for indicator 

7 

TJ 

GAlO 

GAlO 

Jump according to indicator 

10 

MJ 

0 

GB 

Ind. = 0 

11 

MJ 

1 

GB10 

Ind. = 1 

12 

MJ 

2 

GB12 

Ind. = 2 

13 

MJ 

3 

GB17 

Ind. = 3 

14 

MJ 

5 

GG41 

Ind. = 5 

15 

MJ 

7 

GG46 

Ind. = 7 

16 

MJ 

10 

GG50 

Ind. = 10 

17 

MJ 

11 

GH 

Ind. = 11 

20 

MJ 

12 

GB27 

Ind. = 12 

21 

MJ 

13 

OHIO 

Ind. = 13 

22 

MJ 

14 

GH14 

Ind. = 14 

23 

MJ 

15 

GB21 

Ind. = 15 

24 

MJ 

17 

GH40 

Ind = 17 

25 

MJ 

20 

GH45 

Ind = 20 

26 

MJ 

21 

GH50 

Ind = 21 

27 

MJ 

22 

GH56 

Ind = 22 

30 

MJ 

23 

GH66 

Ind = 23 

31 

MJ 

24 

GH72 

Ind = 24 

32 

MJ 

25 

GJ 

Ind = 25 

33 

MJ 

26 

GJ6 

Ind. = 26 

34 

MJ 

30 

GJ20 

Ind. = 30 

35 

MJ 

31 

GJ27 

Ind. = 31 

36 

MJ 

32 

GJ32 

Ind. = 32 

37 

MJ 

33 

GI 

Ind. = 33 


CA 

GA40 




IA 

GA40 


Gen. Store Inst, (cont.) 

40 

MJ 

34 

GI7 

Ind. = 34 

41 

MJ 

35 

GI13 

Ind. = 35 

42 

MJ 

36 

GI21 

Ind. = 36 

43 

MJ 

40 

GI25 

Ind. = 40 

44 

MJ 

42 

GI33 

Ind. = 42 

45 

MJ 

43 

GI36 

Ind. = 43 

46 

MJ 

44 

GI43 

Ind. = 44 

47 

MJ 

45 

GB24 

Ind. = 45 

50 

MJ 

46 

GI 54 

Ind. = 46 

51 

MJ 

47 

GI61 

Ind. = 47 

52 

MJ 

50 

GI65 

Ind. = 50 


CA 

GA53 
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(f^) 

Ind 

0 

IA 

RJ 

GB 

GS12 

GS42 

- 0 


1 

RA 

RA3 

GC 



2 

RJ 

GS12 

GS6 



3 

RJ 

GS12 

GS27 



4 

TV 

TT5 

TT3 



5 

TP 

TT3 

TT2 



6 

RJ 

SI 

Sll 



7 

MJ 

0 

EG 


Ind 

10 

RJ 

GS12 

GS45 



11 

MJ 

0 

GB1 


Ind 

12 

RJ 

GS12 

GS42 

^-2 


13 

RA 

RA3 

GCl 



14 

RJ 

GS12 

GS32 



15 

RJ 

GS12 

GT41 

S —N. 


16 

MJ 

0 

EG 

a 82) 

Ind 

17 

RJ 

GS12 

GS45 

—>—'3 


20 

MJ 

0 

GB13 


Ind 

21 

RA 

RA3 

GC3 

-15 

22 

TO 

TT4 

TT3 



23 

MJ 

0 

GB4 

(m 

Ind 

24 

RA 

RA3 

GC2 

= 45 

25 

RJ 

GS12 

GS6 

/—\ 


26 

MJ 

0 

GB4 


Ind 

27 

RA 

RA3 

GC3 

-12 

30 

TV 

TT5 

TT3 



31 

RJ 

GS12 

GT16 



32 

MJ 

0 

EG 




CA 

GB33 



Gen. Store Inst, (cont.) 

To Sll 

Advance current relative address by 
four 
To S2 
To S6 

Callword of variable defined by 
equation to "v" of temp 3 
Generated inst. to store result to 
temp 2 

Store inst. in temp 2 in routine image 
To Sl2 
To Sll 

Advance current relative address by 
three 
To S7 
To S38 

To S12 

Advance current relative address by one 
»»A" or ”Q" address from register 
indicator to ”u” of temp 3 

Advance current relative address by two 
To S2 

Advance current relative address by one 
To S32 


1442 








0 

IA 

TU 

GS 

RA10 

GS2 

Equation Generation Subroutines 

Address of next word in Expanded List 

1 

RA 

RA10 

GC6 

to "u" of TP 

Advance address in Expanded List by 

2 

TP 

[30000] TT6 

1 in ”u” 

Next word in Expanded List to temp 6 

3 

TP 

GC10 

Q 

Mask for op. code to Q 

4 

QT 

TT6 

A 

Indicator from op. code of temp 6 to 

5 

MJ 

0 

[30000] 

op. code of A 

Exit 

6 

TP 

U4 

TT2 

[TO A 30000] temp 2 

7 

TD 

TT5 

TT2 

Callword from "u” of temp 5 to ”u” of 

10 

TV 

RA3 

TT2 

temp 2 

Current relative address to M v M of 

11 

RJ 

sr 

ST1 

temp 2 

Store instruction in temp 2 in routine 

12 

MJ 

0 

[30000] 

image 

Common exit 

13 

TP 

115 

TT2 

[TV A 30000] -> temp 2 

14 

SP 

TT5 

17 

15 

TO 

A 

TT2 

Callword from "v" of temp 5 to "u" of 

16 

MJ 

0 

GSlO 

temp 2 

17 

TP 

TI5 

TT2 

[TV A 30000] -► temp 2 

20 

MJ 

0 

GSlO 


21 

TP 

114 

TT2 

[TO A 30000] —^ temp 2 

22 

MJ 

0 

GSlO 


23 

TP 

TT4 

TT2 

[TO A 30000] temp 2 

24 

TO 

TT5 

TT2 

Callword from "u" of temp 5 to "u n of 

25 

TV 

RA4 

TT2 

temp 2 

Relative constant callword to M v ,r 

26 

MJ 

0 

GSll 

of temp 2 

27 

TP 

1133 

TT2 

[AT Q Q] —temp 2 

30 

TD 

RA3 

TT2 

Current relative address to M u” of 

31 

MJ 

0 

GSlO 

temp 2 

32 

TP 

1133 

TT2 

[AT Q Q] —> temp 2 

33 

TO 

RA4 

TT2 

Relative constant callword to "u" of 

34 

MJ 

0 

GSlO 

temp 2 

35 

TP 

1133 

TT2 

[AT Q Q] temp 2 

36 

TO 

RA4 

TT2 

Relative constant callword to "u" 

37 

MJ 

0 

GSll 

of temp 2 


CA 

GS40 
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IA 

GS40 







40 

TP 

1133 

TT2 

[AT Q Qj -»• temp 2 





41 

MJ 

0 

GS10 





42 

TP 

117 

TT2 

[SP A 17] — > temp 2 





43 

TO 

TT6 

TT 

Callword from "u" of temp 6 
of temp 0 

to 

V* 



44 

MJ 

0 

GV34 

[SP A 17] temp 2 





45 

TP 

117 

TT2 





46 

MJ 

0 

GS11 






47 

TP 

1132 

TT2 

USA 30000 63 -+ temp 2 





50 

SP 

TT6 

17 

Callword from w v" of temp 6 

to 

V* 

of 

A 

51 

TO 

A 

TT 

”u” of A to ”u M of temp 2 





52 

MJ 

0 

GV34 





53 

TP 

1132 

TT2 

[SA 30000 0] —^ temp 2 





54 

SP 

TT5 

17 

Callword from 'V* of temp 5 

to 

V 

of 

A 

55 

MJ 

0 

GS112 





56 

TP 

117 

TT2 

[SP A 1*3 —> temp 2 





57 

MJ 

0 

GS50 

[TN Q Q] -> temp 2 





60 

TP 

1145 

TT2 





61 

MJ 

0 

GSll 






62 

TP 

III 

TT2 

[TP 30000 A] -> temp 2 





63 

MJ 

0 

GS50 





64 

TP 

ni 

TT2 

[TP 30000 A] temp 2 





65 

MJ 

0 

GSll 





66 

TP 

in 

TT2 

[TP 30000 aJ temp 2 





67 

MJ 

0 

GV32 





70 

TP 

in 

TT2 

[TP 30000 A] -> temp 2 





71 

MJ 

0 

GS43 





72 

TP 

115 

TT2 

[TV A 30000J temp 2 





73 

SP 

TT5 

17 

Callword from "v M of temp 5 

to 

”u" 

of A 

74 

TO 

A 

TT2 

"u” of A to "u" of temp 2 





75 

MJ 

0 

GS25 





76 

TP 

1110 

TT2 

[SA 30000 17^ temp 2 





77 

TO 

TT5 

TT2 

Callword from "u" of temp 5 

to 

"u" 




of temp 2 


CA GS100 
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IA 

GSlOO 






100 

MJ 

0 

GSll 





101 

TP 

115 

TT2 

[TV A 30000] -> temp 2 




102 

MJ 

0 

GS7 

[TO A 30000j temp 2 




103 

TP 

114 

TT2 




104 

TV 

RA3 

TT2 

Current relative address to 

"v" of 






temp 2 




105 

MJ 

0 

GSlll 





106 

TP 

114 

TT2 

[TO A 30000] -> temp 2 


to "u" 


107 

TO 

TT6 

TT2 

Callword from ”u" of temp 
temp 2 

6 

of 


110 

MJ 

0 

GSlO 





111 

SP 

TT6 

17 

Callword from M v w of temp 

6 

to ”u" 

of A 

112 

TO 

A 

TT2 

"u" of A to "u M of temp 2 




113 

MJ 

0 

GSll 





114 

TP 

1132 

TT2 

[SA 30000 0] -*■ temp 2 




115 

MJ 

0 

GS77 





CA 

GS116 
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0 

IA 

TP 

GT 

115 

TT2 

Generator Subroutines Ccont.) 

[TV A 30000] -> temp 2 

1 

MJ 

0 

GS24 


2 

TP 

TT3 

TT2 

[F_ 30000 30000] from temp 3 

3 

RJ 

GT13 

GT5 

—► temp 2 

To S29 

4 

MJ 

0 

GSll 


5 

TV 

TT5 

TT1 

Callword from 'V* of temp 5 to H v M 

6 

TP 

TT1 

A 

of temp 1 

Callword from "v” of temp 1 to ”v M 

7 

TJ 

GC34 

GT11 

of A 

Is callword partial result symbol? 

10 

MJ 

0 

GT12 

(i.e. ,30—) 

No 

11 

RJ 

TR 

TR2 

Yes; pertinent temporary storage 

12 

TV 

A 

TT2 

callword to V of A 

Operand or temp callword to M v" of 

13 

MJ 

0 

[30000] 

temp 2 

Exit 

14 

TP 

TT3 

TT2 

[F_ 30000 3000(f) from temp 3 —> temp 2 

15 

MJ 

0 

GSll 

16 

TP 

TT3 

TT2 

CF_ 30000 30000] from temp 3 —temp 2 

17 

RJ 

GT27 

GT21 


20 

MJ 

0 

GSll 

21 

TO 

TT5 

TT 

Callword from ”u” of temp 5 to H u M of 

22 

TP 

TT 

A 

temp 0 

Callword from "u" of temp 0 to "u" of A 

23 

TJ 

GC35 

GT25 

Is callword partial result symbol? 

24 

MJ 

0 

GT26 

(i.e. ,30-) 

No 

25 

RJ 

TR 

TR1 

Yes, pertinent temporary storage call- 

26 

TO 

A 

TT2 

word to M u H of A 

Operand or temp callword to "u M of 

27 

MJ 

0 

[30000] 

temp 2 

Exit 

30 

TP 

TT3 

TT2 

[F_ 30000 30000] from temp 3 -> temp 

31 

TO 

TT4 

TT2 

"u" of register indicator to "u" of 

32 

MJ 

0 

GSll 

temp 2 

33 

TP 

TT3 

TT2 

[F_ 30000 30000] from temp 3 

34 

RJ 

GT13 

GT5 

—> temp 2 

35 

MJ 

0 

GT31 


36 

TP 

TT3 

TT2 

[F_ 30000 30000] from temp 3 

37 

TV 

TT4 

TT2 

—> temp 2 

"v" of register indicator to M v" of 


CA 

GT40 


temp 2 
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40 

IA 

MJ 

GT40 

0 

GT17 


41 

TO 

TT5 

TT3 

Caiiword from !, u !! of temp 5 to !t u M of 

42 

TV 

TT5 

TT3 

temp 3 

Caiiword from *V* of temp 5 to 'V* of 

43 

RJ 

SI 

Sill 

temp 3 

Inst, in temp 3 to relative constant 

44 

TP 

II 

TT2 

image 

|00 30000 30000] -> temp 2 

45 

MJ 

0 

GSll 

ylA 

TIT 


TTQ 

P ^ pTfl-nm ft ^ 4. ^ C 4* ^ M,, H 

vaxiWUiU J.XU1U U Mi vl l/U u 


JL VS 

X4.U 

J.J.U 

47 

MJ 

0 

GT43 

of temp 3 

50 

TV 

TT4 

TT3 

"v" of register indicator to M v” of 

51 

MJ 

0 

GT46 

temp 3 

52 

TO 

TT4 

TT3 

"u” of register indicator to "u" of 

53 

MJ 

0 

GT42 

temp 3 

54 

TP 

TT3 

TT2 

[F 30000 30000| from temp 3 

55 

RJ 

GT13 

GT5 

—> temp 2 

To S29 

56 

RJ 

GT27 

GT21 

To S33 

57 

MJ 

0 

GSll 


60 

TO 

TT5 

TT3 

Caiiword from "u" of temp 5 to ”u M 

61 

RJ 

GT13 

GT5 

of temp 3 

To S29 

62 

TV 

A 

TT3 

Caiiword of variable, constant or 

63 

MJ 

0 

GT43 

temp to ”v” of temp 3 

64 

TV 

TT5 

TT3 

Caiiword from M v M of temp 5 to "v” 

65 

RJ 

GT27 

GT21 

of temp 3 

To S33 

66 

TO 

A 

TT3 

Caiiword of variable, constant or 

67 

MJ 

0 

GT43 

temp to V of temp 3 

70 

TP 

TT3 

TT2 

U_ 30000 3000(f| from temp 3 

71 

TV 

TT4 

TT2 

—> temp 2 

"v" of register indicator to "v" of 

72 

MJ 

0 

GSll 

temp 2 

73 

TP 

116 

TT2 

[RA 30000 30000] -> temp 2 

74 

TO 

RA3 

TT2 

Current relative address to "u" of 

75 

MJ 

0 

GV4 

temp 2 


CA 

GT76 
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IA 

GU 


0 

RA 

RA3 

GC3 

1 

TP 

1136 

TT2 

2 

TO 

TT6 

TT2 

3 

MJ 

0 

GSll 

4 

TP 

1135 

TT2 

5 

TV 

RA6 

TT2 

6 

RS 

RA6 

GC3 

7 

MJ 

0 

GSll 

10 

TP 

1122 

TT2 

11 

TO 

RA6 

TT2 

12 

TV 

RA6 

TT2 

13 

MJ 

0 

GSll 

14 

TP 

III 

TT3 

15 

TU 

TT5 

TT3 

16 

RJ 

GK34 

GK30 

17 

MJ 

0 

GT43 

20 

TP 

III 

TT3 

21 

RJ 

GK34 

GK30 

22 

TP 

TT3 

TT2 

23 

MJ 

0 

GSll 

24 

TP 

1110 

TT2 

25 

TO 

RA4 

TT2 

26 

MJ 

0 

GSll 

27 

TO 

TT5 

TT 

30 

SP 

TT 

25 

31 

LT 

0 

TT3 

32 

RJ 

SI 

Sill 

33 

MJ 

0 

[30000] 

34 

TP 

1122 

TT2 

35 

RJ 

GT27 

GT21 

36 

SP 

TT2 

25 

37 

LT 

0 

A 


CA 

G040 



Generator Subroutine (Int. Power) 
Advance current rel. address by 1 in 
”u H and "v M 

[FD 30000 Q] —> temp 2 

Callword from M u M of temp 6 to M u M of 

temp 2 

[FM Q 30000H temp 2 

Current reusable temp callword to H v w 

of temp 2 

Decrease current reusable temp callword 
by one 

[FM 30000 30000] -> temp 2 
Current reusable temp callword to w u" 
of temp 2 

Current reusable temp callword to "v" 
of temp 2 

[TP 30000 A] temp 3 

Callword from **u” of temp 5 to "u M of 

temp 3 

Callword of available reusable temp to 
"v w of temp 3 

CrP 30000 A] -► temp 3 

Callword of available reusable temp to 

"v" of temp 3 

Instruction from temp 3 to temp 2 

[SA 30000 17] temp 2 

Relative constant callword to M u" of 
temp 2 

Callword from ”u w of temp 5 to "u” of 
temp 0 

Callword from M u" of temp 0 to M v” of 
temp 3 

Inst, in temp 3 to relative constant 

image 

Exit 

[FM 30000 30000] temp 2 
To S33 
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40 

IA 

TV 

G040 

A 

TT2 

41 

MJ 

0 

GSll 

42 

TP 

1127 

TT2 

43 

TP 

GC12 

Q 

44 

QT 

TT6 

A 

45 

SS 

GC13 

17 

46 

TO 

A 

TT2 

47 

TV 

RA3 

TT2 

50 

RA 

TT2 

GCll 

51 

MJ 

0 

GSll 

52 

TP 

1122 

TT2 

53 

MJ 

0 

GSll 

54 

TP 

GC47 

Q 

55 

QS 

1132 

TT2 

56 

MJ 

0 

GSll 


CA 

GO 57 



Callword from "u" of temp 2 to ”v M of 
temp 2 

[RP 30000 30000] -> temp 2 

Mask for rightmost "two" octal digits 

of "v" -> Q 

exponent from temp 6 to "v" of A 
Exponent less two to "u" of A 
jn to "u" of repeat instruction in 

temp 2 

Current relative address to "v" of RP 
inst. in temp 2 

Advance "v" of RP inst. in temp 2 by 
one 

[FM 30000 30000] -► temp 2 
To© 

Mask for op. code and "v" to Q 

[32_ 0000(3 to op. code and "v" of 

temp 2 
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0 

IA 

TP 

GV 

1125 

TT2 

Generator Subroutines (Subscript Operator) 

[MA 30000 30000] —> temp 2 

1 

RS 

GV2 

GC6 

Decrease M u' 1 of next instruction by one 

2 

TP 

[30000] TT6 

Next subscript word from Expanded List 

3 

TO 

TT6 

TT2 

to temp 6 

Callword of multiplier from H v" of temp 

4 

TV 

TT6 

TT1 

6 to "v" of temp 2 

Callword of subscript from "v” of temp 

5 

RJ 

GT13 

GT6 

6 to V* of temp 1 

To S30 

6 

MJ 

0 

GSll 


7 

TP 

1124 

TT2 

[MP 30000 30000] temp 2 

10 

MJ 

0 

GVl 

[SA 30000 0] —► temp 2 

11 

TP 

1132 

TT2 

12 

RS 

GV2 

GC6 

Decrease by one in w u H 

13 

TO 

A 

GV14 

Preset address of next subscript word in 

14 

TP 

[30000] TT6 

Expanded List 

Next subscript word from Expanded List 

15 

SP 

TT6 

17 

to temp 6 

16 

TO 

A 

TT 

Callword of subscript from w v w of temp 

17 

RJ 

GT27 

GT22 

6 to n u" of temp 0 

To S34 

20 

TP 

TT2 

TT3 

Generated Instruction to temp 3 

21 

MJ 

0 

[30000] 

22 

TP 

1115 

TT2 

[TJ 30000 30000] -*> temp 2 

23 

TV 

RA3 

TT2 

Current relative address to **v w of 

24 

RA 

TT2 

GC11 

temp 2 

Advance w v” of temp 2 

25 

TO 

TT5 

TT2 

Callword from H u H of temp 5 to "u w of 

26 

MJ 

0 

GSll 

temp 2 

27 

TP 

1126 

TT2 

Q)V 30000 Q] —> temp 2 

30 

MJ 

0 

GV25 

31 

TP 

III 

TT2 

[TP 30000 A] -> temp 2 

32 

SP 

TT5 

17 

Callword from M v M of temp 5 to ”u M of A 

33 

TO 

A 

TT 

Callword from M u rt of A to "u" of 

34 

RJ 

GT27 

GT22 

temp 0 

To S34 

35 

MJ 

0 

GSll 

Q>P A 17] temp 2 

36 

TP 

117 

TT2 

37 

MJ 

0 

GV32 



CA 

GV40 
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Store Rel. Store inst. in 

Const, in Temp 2 in Routine 

Con ii- Ja a 9 e lma 9 e 





Store inst. in Routine linage or Relative 

Constant Image 

Exit 

Inst.in temp 2 to current address in 
Routine Buffer 

Advance current address in routine 
buffer by one 

Are there 1708 words in routine buffer? 
Exit if no. 

Yes; reset current address in routine 
buffer to initial address 
Transfer 1708 generated Inst, from 
routine buffer to current address in 
routine image on drum 

Advance current address in routine image 
by 1708 
To Exit 

Advance current relative constant 
callword by one 

Relative constant (or w 10" line) in 
temp 3 to relative constant image 
Advance current address in relative 
constant image by one 
Are there more than 778 relative 
constants? Exit if no. 

Yes, type SENTENCE_ (equation) 

Parameter for alarm text to type 
routine 

Type: SENTENCE TOO LONG. 

Rewind tapes and stop 


1451 




IA 

TR 


Obtain Redundancy or Reusable Temp 
Callword for Partial Result 

0 

MJ 

0 

[30000] 

Exit 

1 

LT 

25 

A 

Partial result symbol to M v” of A 

2 

RP 

[30000] TR12 

Is partial result symbol in Redundant 
Partial Result List? 

3 

EJ 

RL 

TR4 

Yes; to TR4. No; to TR12 

4 

SP 

Q 

17 

jn - r-> n u w of A 

5 

AT 

Q 

Q 

jn - r-y*u M & V of Q 

6 

TP 

RA2 

A 

jn "u n & H v n of A 

7 

SS 

Q 

0 

+r "u M & "v" of A 

10 

SA 

RA5 

0 

Callword of redundancy temp for partial 
result to "u" and ”v H of A 

11 

MJ 

0 

TR 

To exit 

12 

RS 

RA6 

GC3 

Decrease current reusable temp callword 
by one 

13 

SA 

GC3 

0 

Callword of reusable temp for partial 
result to "u" and "v" of A 

14 

MJ 

CA 

0 

TR15 

TR 

To exit 
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IA 

GC 


Generator Constants (Fixed) 

0 

0 

4 

4 


1 

0 

3 

3 


2 

0 

2 

2 


3 

0 

1 

1 


4 

0 

5 

5 


5 

0 

6 

6 


6 

0 

1 

0 


7 

0 

0 

7 


10 

77 

0 

0 


11 

0 

rv 

u 

1 


12 

0 

0 

77 


13 

0 

0 

2 


14 

02 

0 

0 


15 

0 

26000 

0 


16 

0 

RI 

FL 

Parameter to write generated 
routine from drum to tape 

17 

0 

0 

0 


20 

0 

0 

RB7 

To set switch^A) 

21 

0 

0 

GK 

22 

0 

0 

ZZ24 

23 

0 

00777 

00777 


24 

TP 

TT2 

RB 

Initial address in routine buffer in 

25 

TP 

TT2 

RB170 


26 

0 

0 

170 


27 

TP 

RB 

RI 

Initial address in routine image on 
drum in "v w 

30 

TP 

TT3 

Cl 

Initial address in relative constant 
image in "v" 

31 

0 

0 

30000 


32 

10 

0 

3 

To set switch(J)and(^B) 

33 

0 

0 

EG 

34 

0 

0 

31000 

35 

0 

31000 

0 


36 

0 

2 

0 


37 

0 

3 

0 



CA 

GC40 
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IA GC40 


40 

0 

0 

6 


41 

0 

0 

GK3 

To switch(lT) 

42 

TP 

TT2 

RB171 


43 

0 

RB 

FL 

Parameter to write generated routine 
from core to tape 

44 

0 

1000 

1000 


45 

0 

20000 

20000 


46 

0 

23000 

0 


47 

77 

0 

77777 


50 

0 

10000 

10000 

Initial relative constant callword 

51 

0 

57777 

57777 

Initial redundancy temp callword less 1 

52 

0 

67777 

67777 

Initial reusable temp callword less 1 

53 

0 

CA 

776 

GC54 

776 
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___ IA II Dummy Instructions 

0 00 30000 30000 

1 11 30000 A 

2 12 30000 Q 

3 13 30000 Q 

4 15 A 30000 

5 16 A 30000 

6 21 30000 30000 

7 31 A 17 

10 32 30000 17 

11 34 30000 30000 

12 35 30000 A 

13 36 30000 A 

14 37 50051 50051 Callword of ’’Square Root” Library 

Routine (SQRT) in "u rt and n v M 

15 42 30000 30000 

16 45 0 0 

17 56 0 30000 

20 64 30000 30000 

21 65 30000 30000 

22 66 30000 30000 

23 67 30000 30000 

24 71 A 30000 

25 72 30000 30000 

26 73 30000 Q 

_27 75 30000 30000 

30 11 30000 50051 Callword of "Square Root" Library 

Routine (SQRT) in "v" 

31 13 A A 

32 32 30000 0 

33 35 Q Q 

34 66 A A 

35 66 Q 30000 

36 67 30000 Q 

37 73 30000 A 

CA 1140 


IA 1140 


40 

64 

Q 

30000 

41 

11 

Q 

A 

42 

11 

A 

30000 

43 

10 

2 

0 

44 

12 

A 

A 

45 

13 

Q 

Q 

46 

11 

30000 

30000 

47 

45 

0 

01000 

50 

45 

0 

30000 


CA 

1151 
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IA 

TO 


Alarm Text 

0 

40 

T01 

3 

Parameter for alarm text 

1 

65 

30506 

63050 

S E N T E N 

2 

26 

30016 

65151 

C E A T 0 0 

3 

01 

46515 

03222 

ALONG . 


CA 

T04 




IA 

LG 


Limiting Values 

0 

TP 

TT3 

Cl 100 

Maximum address in relative constant 
image + 1 

1 

0 

1002 

1002 

[Maximum number of lines in object 
\ program body (including jump to exit) 


CA 

LG2 


Ul 


Explanation of Relative (Running) Address List 

jn for ”Q" List search in "u" 
jn for "A" List search in "u" 
jn for Redundant Partial Result List 
Current relative object program address 
in "u" and "v” 

Current relative constant callword in 
"u" and ”v" 

Initial redundancy temp callword less 1 
in "u" and "v" 

Current reusable temporary storage 
callword in "u" and "v" 

Highest reusable temporary storage 
callword in "u" and "v" 

Initial address in Expanded List + 2 
in "u" 


RAO 

1 

2 

3 

4 

5 

6 
7 

10 
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Explanation of Working Temporaries (TT) 


TTO 0 [300001 0 

10 0 [30000] 

2 0 0 0 

3 0 0 0 

4 0 0 0 

5 0 0 0 

6 0 0 0 

7 0 0 0 

10 0 0 0 


Temp 0 - op. code and M v M always 
zero 

Temp 1 - op. code and w u" always 
zero 

Temp 2 - usually generated instruction 
to be stored 

Temp 3 - usually relative constant to 
be stored 

TAmn A rpni etpr inHiirator 
*'"“r * 

Temp 5 - operator word from Expanded 
List 

Temp 6 - indicator word from Expanded 
List 

Temp 7 - index counter 
Temp 10 - M 10 M line counter 
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V. ALLOCATION PHASE 




ALLOCATION PHASE 


1. Segmentor 


q ^onmontatinn Satnn 

This Setup Routine for Segmentation prints out the information that the 
Allocation Phase (including the Segmentor, the Allocator, and the Initializa¬ 
tion Generator) is about to begin. 

The routine reads the nine blocks of Segmentation from the UNICODE Master 
Tape and then jumps into the phase. 
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Flow Chart for Set-Up Segmentation 





Segmentation Set-Up Regions 


RE 

ZS7230 

Loading address for segmentation setup 

RE 

ZZ7230 

Operating address of segmentation setup 

RE 

SA674 

Loading and operating address of 
segmentation phase 

RE 

SLllOO 

11 = number of blocks for segmentation 
phase 

RE 

TH21 


RE 

UP421 






Set-Up for Segmentor 


IA 

ZS 



ZZO 

TP 

ZZ6 

UP3 i 

Print: Pass III. ALLOCATION OF 




I 

I 

► STORAGE. 

1 

RJ 

UP 2 

UP J 


2 

TP 

ZZ5 

TH3 1 

L Read Segmentation Phase to H.S.S 

3 

RJ 

TH2 

TH J 

1 

4 

MJ 

0 

SA 

Enter Segmentation Phase. 

5 

50 

SL1 

SA 

Tape handler code word (Read). 

6 

0 

ZZ7 

7 

Code word for UP 

7 

01 

01010 

10101 

A A A A A A 

10 

52 

24656 

50134 

P A s s A I 

11 

34 

34220 

10101 

I I -AAA 

12 

01 

24464 

65126 

A A L L 0 C 

13 

24 

66345 

15001 

A T I 0 N a 

14 

51 

31016 

56651 

0 F A S T 0 

15 

54 

24323 

02201 

RAGE .A 


CA 

ZS16 
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b. Segmentation 


Phase I. 

Phase I prepares two directories using Op File I of the generated 
routines on Dniservo 5 and Op File I of the library routines on Uniservo 2. 
First, all items of Op File I on the generated routine tape are read into 
H.S.S. and then transferred to the MD. Directory I is constructed by making 
an entry for each item placed on the MD. The first word of this entry con¬ 
tains the call word for this item in the ji position; the second contains the 
locating MD address for this item in the % position. 

When Op File I of the generated routine tape has been completely read 
into H.S.S. t List 1 (a listing of all library routines required for the prob¬ 
lem prepared during translation) is read into H.S.S. (List 1 is stored fol¬ 
lowing Op File I of the generated routine tape.) Next Op File I of the library 
tape is read from tape and checked for the occurrence of the items of List 1. 
When an item of List 1 is found in the library Op File I, the Op File for this 
item is placed on the MD and an entry is made in Directory 1. 

Directory 2 consists of only two words. The first word holds the MD 
address of the first statement Op File; the second contains information re¬ 
lating to the MD address of the last statement Op File. This two word direc¬ 
tory is prepared concurrently with Directory 1. 
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Phase II, 


Phase II uses Directories 1 and 2 to divide the problem into efficient 
running segments producing Op File Ila and Hb on tape for each segment. 

Using the first word of Directory 2 (location of Op File I for the first 
statement) as the initial point, Op File I for each statement is processed in 

sequence. A sub-tally of the total number of lines of coding required for 

each current statement and its necessary cross references is maintained. 

This in turn updates a master tally for the segment which contains the accum¬ 
ulated total number of lines needed for all statements and their required 

cross reference routines. After processing each complete statement, the 
master tally is checked to determine if it is within the prescribed limits 
(4096m-N; where N is the length of the Control Section and m the number of 
core banks available). If it has exceeded the set limits, the sub-tally is 
subtracted from the master tally and this becomes the length of the segment. 

If a single statement and its necessary cross references exceeds (4096m-N) 
the routine gives an alarm. The last statement processed which exceeds the 
set limit becomes the first entry in the following segment. 

Vary loops are treated differently in order to avoid unnecessary 
jumping between segments. All statements within the range of a Vary are 
counted together in the sub-tally as one large statement, including other 
Vary statements that might be nested within the first loop. If the master 
tally then exceeds (4096m-4*0, the routines check whether the sub-tally exceeds 
(4096m-N). If not, the routine ends a segment right before the Vary statement, 
starting the next segment with a Vary loop. If the Vary loop in itself ex¬ 
ceeds (4096m-N), the segmentation goes backward within the sentences of the 
Vary loop until the limit (4096m-N) is reached again. If there is no Vary 


1465 



within the Vary, it forms a segment right there. If there are other Vary 
sentences nested within the large Vary loop, it goes further back beyond the 
next Vary statement and forms the segment so that the new segment would start 
with a Vary Statement. 

Processing continues entering each item in turn into Op File Ila using 
the length (4096m-N) as a limit for each segment. Whenever cross references 
to other statements (open jumps) are recognized, these call words are entered 
into Op File lib. Thus, Op File lib is a listing of jump cross reference call 
words for each segment. When sufficient statements for one segment have been 
processed and their call words entered into Op File Ila and lib (as needed), 
these files are written on tape ready for use by the allocator. The process 
is repeated, building Op File Ila and lib for each segment using the second 
word of Directory 2 to indicate when the last statement in Op File I has been 
processed. 
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Segmentation, Phase I 










HB12 



Segmentation, Phase I 

1468 








MM1 


Read 1 
block tape 
5 into 
buffer 



!-3 

Is label 
"List 1"? 


Alarnr 

Exit 

stop. 


Segmentation, Phase I 


Read 1 
block tape 
5 into 
buffer 


YES 


MM4 

NO 

t 

Go to alarm 

10 

\ 

!_ 



MM6-7 

Is label NO 

"end of entry"?)—» 


YES 



MM10-12 

Write 1 
of LIST 
drum 

block 

1 to 

MM 13 , 

i 

"is region set 'X 
aside for List I ) 
^ exceeded? y 

MM 14 y 

YES 

f 

Go to alarm "too 
many library 
rout." 



NO 
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DAO-1 



DA 


Read 1 

DA2-10 

DA11 

block tape 


Do prelim, set- 


Jump to DC 

1 into 


tings for fixed 


(normally) jump 

buffer 

-=» 

libr. 

—> 

to MB2 (only 





var. libr.) 


DC0-2 



DC14-15 


Reset fixed librj 
Op. File 1 back 
to 1st CW and 
adv. List 1 CW 


DC 10-12 



Is CW of Op 
File 1 fixed libr, 
= CW in LIST 1? 



Is next CW 

7474_7474? 

i. e., are we thru?, 



NO 


DC3-7 

Set for next 
CW in Op File 1 
fixed libr. 


YES Fixed Library Only 


-© 



,DC14 


YES 


Segmentation, Phase I 







uriU-11 

Do presettings 
and bring one 
Op File 1 item 
fixed libr. 
to drum 


DH12-14 

Are there 
cross ref.? 


DGO-1 


DG2-5 

Adv. addr. of 
cross ref. by 1 
and go to handle 
cross ref. in RJ 
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DG6 DG7 



Segmentation, Phase I 


DFO 


EBO-6 


Go to hdle 


Place CW and drum 

case for Dir. I 


addr. in Dir 1 and 



adv. 


EB7 EB7 








Segmentation, Phase I 








Segmentation, Phase I 


''"Is region seO 
aside for Dir I 
^exceeded? 


NO libr tape 


FFO-4 

Is op file 1 
item>l block? 


FFG-20 

Bring 1 whole 
block Op File 1 
item to drum 
and adv. 


Read 1 
block 
tape 2 
into 
buffer 


EB1 ° i 

Go to alarm 
"probe too big" 


Alarnr 
exit 
V Stop. 


FBO-4 

^Is Op File 1 ^ 
item 2. 1 block? 


FB6-15 

Bring 1 whole 
block Op File 1 
item to drum 
and adv. 


Read 1 
block 
tape 5 
into 
buffer 




FC0-10 

11 . -i 

Bring one or part 
Op File 1 item 
to drum 


Adv. settings 
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Segmentation, Phase II 


BB 













Segmentation, Phass II 


EF EF5 










Segmentation, Phase II 


Is t. = 0?]MJ Is t> M ?] 


YES 

EG2 i 

/ts statem.CWN 
of last Op File' 
J a 26—VARY? ) 


EE10 

Case t < M 
T < M but next 
T > M 

finish up segment 
by setting word a 
addr. given in 
TE13 into first 
word of Op File 
II b 


Set BB42 and 
restore VARY 
settings 


BB23J 


FF+GG+GH 

Form segment 
Op File II a 
SOp File II b 
.Segment table 


"Was this the\ yES/ 
last segment?r“” 5 *\ 


Set counters back 
to segm. start and 
clear TE22 


' Are we in 
VARY loop? 


EK+EJ5+EG7 


YES Set 
^ val. 


a back to 
in TE13 


t-tj-> t 


Clear t. 
and tg 


Go to alarm 


EE16 


Go to alarm 


EH2 , |PT E H1 ° _ 

'Is t > M?\ YEsJt + tl->t 

)-> restore sinci 

V y t still too 















t 1 +(a+l)-^t 1 


Handle 26...+ 27... 
tj = 0 cases for 
reduced a that will 
go via EQ to exit 


Reduce 

Handle 27_case 

a by 2 

(TE3) going 


backward 


EM3+EL+LL _ 

Handle 77_case 

TE12, TE22 
going backward 


T+(a+l)->T 


EG20 + EX 

z-- N 

^Is T > M? or 
Op File II a 
v exceeded?^ 


EH 12 _ 

T-(a+l) -> T 
we finally have 
made T too big 


Is at a a 26. 
VARY CW? 


Is at a a 
27_CW? 


EM+EL+lLL+ER 




Repl. subtr. 
t 0 -l-> t 0 


' Is t3 = 0? ^ 
Are we not in 
vVARY in VARY?/ 



Is next CW 
again 26__. 
VARY? 


EQ2+EN+E0+ JpY+EZ+EP 

Handle Op File II b 
■ from set-back on 


Prepare finishing up 
segment by setting word 
at addr. given in TE5 
into first word of Op 
File II b 


EI2 with RJ to ET _ 

Do settings for FF, set 
by BB42 and restore 
VARY settings 


Segmentation, Phase II 
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Segmentation Regions Phase I 


RE ZA77000 
RE B0632 
RE BR537 
RE ST653 
RE GKIOOO 
RE TN20 
RE DP421 
RE TH21 

ni7 mmoT a 
XV£| X 106 < ‘i 

RE D13464 
RE SD4156 
RE FD40101 
RE FA4260 
RE FP7660 
RE 0P45215 
RE LI4160 
RE W2764 
RE TE1300 


Segment Table 


Tape Handler 
Tape Image 
Drum Image 
Directory II 
Directory I 
Op File Ila 
Op File lib 
Op File I 
List I 

Temporaries Phase I 
Temporaries Phase II 


RE PP1373 
RE HG674 
RE HH677 
RE HB723 
RE ML747 
RE BB756 
RE BC772 
RE DD1000 
RE BD1003 
RE DA1012 
RE DB1024 
RE DC1035 
RE DF1055 
RE DG1060 
RE DH1070 
RE EE1105 
RE EA1113 
RE EB1120 
RE EC1131 
RE EDI135 
RE FF1145 
RE FBI170 
RE FC1210 
RE MM1223 
RE TT1241 
RE MB1242 
RE CC1260 
RE WM1347 
RE FT1352 
RE HT1360 
RE VC2472 
RE BE76777 
RE EF452I3 
RE DE5161 
RE LF3274 



Entrance Phase I 



IA HG 


0 

MJ 0 HH 

Jump to start 

1 

MJ 0 BQ6 

Alarm exit 

2 

MJ 0 PP 

Jump to Phase II 


CA HG3 



0 

1 

2 

3 

4 

5 

6 
7 

10 

11 

12 

13 

14 

15 

16 
17 
20 
21 


IA HH 


RP 15014 HH2 
TP CC23 W 


RP 17777 HH4 
TP CC23 40101 


RA HH3 MBl 


U MB HH2 


RP 11702 HH10 
TP CC23 70076 
TP CC25 W 
TP CC25 VV1 
TV CC31 EB 
TV CC32 EB1 
TV CC33 MM11 
TV CC36 HB23 
TV CC37 BB13 
TV CC40 EE5 


TV CC41 EE4 


TV CC42 EB7 


Come from HG 


Clear core from 2764-7777 


Clear drum from 40101-76277 


Set K = Op 
Set b = Op 

Set addresses of first directory 

Set address of List 1 

®-*@ 

©*© 

©-*© 

©-© 
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© 



22 

TV 

CC51 BB12 

23 

MJ 

0 HB 


CA 

HH24 


IA 

HB 

0 

TP 

CC TH3 

1 

RJ 

TH2 TH 

2 

TP 

TI24 A 

3 

EJ 

CC11 HB5 

4 

MJ 

0 BR12 

5 

RJ 

TH2 TH 

6 

TP 

Til A 

7 

EJ 

CC4 HB11 

10 

MJ 

0 BR12 

11 

RJ 

TH2 TH 

12 

TP 

Til A 

13 

EJ 

CC6 HB15 

14 

MJ 

0 BB 

15 

RP 

30013 HB17 

16 

TP 

TI2 5 

17 

MJ 

10000 HB22 

20 

TP 

CC23 TN 

21 

MJ 

0 HB23 

22 

TP 

CC57 TN 

23 

MJ 

0 30000 


CA 

HB24 


Enable boxes 3 and 4 


Come from HH23 


Read 1 block Uniservo 5 


Identification of A FILE (A TAPE A) 
Alarm 

Come from HB3 or MB14, read next 
block 


Identification of (AAAOPA)FILEAl 
Alarm 

Read next block 


Identification of (ENDA OF) A ENTRY 
resp. after change ident. of SUBRTN 
v changed by MB11 to TT t u changed 
by MB13 


Not finished yet, go t 



Fill constants 5-17 inclusive 


Do setting for 5 or 7 tapes depend¬ 
ing MJ1 test 
IN = 0 0 0 (5 tapes) 

TN = 0 3 0 (7 tapes) 

Set by HH15 to ML, after all Op Files 
1 read in—»(X)switch 
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Come from HB14 



IA 

BB 

0 

TP 

CC24 A 

1 

TJ 

VV2 DD 

2 

EJ 

VV2 DD 

3 

TP 

W2 W3 

4 

SP 

VV3 17 

5 

TP 

A VV5 

6 

AT 

CC47 VV4 

7 

TO 

VY4 BB10 

10 

TP 

30000 A 

11 

TP 

A W6 

12 

EJ 

CC12 30000 

13 

MJ 

0 30000 


CA 

BB14 


Is Op File I longer than 1 block? 
equal? 

Smaller? 

Store j (length of Op File 1 item 
within block) in v of W3 and u 
of VV5 


TI 0 4- j ->VV4 in u 
Set NI 

Place first "CW + # of addresses” of 
next Op File item —»W6 

Is there another Op File I following? 

Set by HH22 to BCO, later by MB3 to 
HB11. No. 

Set by HH16 to EEO later by MB10 to 
EDO. Yes. 
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IA BC 


Come from BB12 



0 

1 

2 

3 

4 

5 


TP CC15 Q 
QS W5 BC4 " 

TV VV1 BC5 

RJ BD4 BD 

RP 30000 HB11 ] 
TP TI 30000 J 
CA BC6 


Mask 0 07777 0 

Set RP command for bringing Op File 
to drum. 


Advance and check whether it exceeds 
region. 

Set by BCl or DDl 
Set by BC2 


IA BD 

0 RA W1 W3 

1 QT BC4 Q 

2 SP BC5 17 

3 SA Q 71 

4 TJ CC55 30000 

5 TO FT WM 

6 MJ 0 WM 

CA BD7 


Come from BC3 
Advance 

CC15 mask is already in Q 
Does Op File I exceed region? 

Set by RJ in BC3 to BC4 
Go to alarm (region exceeded) 
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IA DA 


0 

1 

2 

3 

4 

5 

6 
7 

10 

11 



Come from MM7 t fixed libr. prelim, 
settings 

Read 1 block of Tape 1 into buffer 

Set RP for comparison with List 1 

Set right addr. for first addition 
to List 1 and index List 1 

Set addr. for next item—> List 1 

Set index for * of addresses in 
List 1 


0 

1 

2 

3 

4 

5 

6 
7 


IA DB 

RP 20000 DB2 
EJ LIl DB10 
TP A LI 
RA DB CC53 
RA W14 CC62 
RA DB2 CC62 


TJ CC60 DB10 
MJ 0 MM14 


10 MJ 0 30000 
CA DB11 


Come from DG5 with RJ. Fixed libr. 
Set by DA3 Already in List 1? 

Yes, do nothing. 

Set by DA7 No., place CW in List 1. 

Adv. u in RP command. 

Adv. index for List 1 elements. 

Adv. addr. in List 1 for next CW. 

Have we exceeded region? 

Alarm (too many libr. rout, refer¬ 
enced) 
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IA DC 

0 TN CC14 Q 

1 QT TI A 

2 EJ LI DH 

3 TP CC14 Q 

4 TO BC1 DC5 

5 QT 30000 A 

6 LA A 17 

7 AT DC1 DC1 

10 TO DCl DCll 

11 TP 30000 A 

12 EJ CC12 DC14 

13 MJ 0 DC 

14 RA DC2 CC53 

15 TD CC33 DCl 

16 IJ VV14 DC 

17 MJ 0 MB2 

CA DC20 


Come from DAll. 

Mask 77 77777 0 to Q. 

CW of Q) File 1 fixed libr. —> u 
of A. 

Equal CW in List 1? Yes t go to 
further handl. 


Set next addr. for comparison. 


Is next word "74 74747 47474”? 


No, go back in loop. 

Yes, do settings for next CW in 
List 1. 

Reset DCl to first CW in Op File 1. 

Are we thru with List 1? No, go 
back in loop. 

Yes, go to rout, for handl. normal 
libr. Tape, or changed by ML5 to 
TT, skip normal libr. Tape. 
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IA DD 


Come from BB1 or BB2 


0 

RS V¥2 CC24 

Form words in Op File 1 minus 170 

1 

TU CC36 BC4 

Set RP command BC4 

2 

MJ 0 BC2 

CA DD3 



IA DF 

Come from DH14 or DG7, fixed libr. 

0 

RJ EB7 EB 

Place CW and drum addr. —>Direct 
and adv. counters. 

1 

TP CC14 Q 

Restore mask in Q. 

2 

MJ 0 DC 14 

CA DF3 

Back to handl. next List 1 word. 


IA DG 

Come from DH13 f fixed libr. 

0 

TU DCl DG4 

Set addr. of Op File CW in DG4 
(after equality). 

1 

RA DG4 CC53 

Adv. by 1. 

2 

RA DG4 CC53 

Adv. by 1. 

3 

TP CC13 g 

r Put cross reference —> A. 

4 

QT 30000 A 

1 

5 

RJ DB10 DB 

Go to handl. cross reference. 

6 

U W15 DG2 

Are all cross ref. handled? 

No, back in loop. 

7 

MJ 0 DF 

CA DG10 

Yes, go to handl. CW. 
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0 

IA DH 

TO DC1 DH11 

Set RP command. 

1 

TO DCI DH3 

Set addr. DH3. 

2 

TP CC14 Q 

Mask 

3 

TP 30000 VV6 

Save CW + # of lines in Op File 

4 

QT VV6 W15 

item in VV6. 

Save # of lines in Op File item in 

5 

TV VV1 DH11 

W15. 

Place next drum addr. for Op File 



item in v of DH11 

6 

SP VV15 17 


7 

AT CC63 DH10 

a 

> Set addr. DH7 

10 

0 0 0 


11 

TP 30000 30000 

J 

” Place Op File item —►drum. 

12 

RA W1 W15 

Adv. drum addr. 

13 

RS W15 CC64 

Subtr. 3 from # of lines to get in¬ 

14 

SJ IF DG 

dex for cross ref. 

Ind. neg; skip hdl. cross ref., 


CA DH15 

pos.go to hdl. cross ref. 



IA 

EA 

-N 

Come from EE5 



0 

SP 

W 17 

> K —► 1st word 

Direct 

. II 




drum addr. of 

first 

statem 

1 

TO 

A SD 

J 

CW in Op File 

I -> u 

of SD 

2 

TV 

CC41 EE5 




3 

TV 

CC45 EE4 

©■*© 



4 

MJ 

0 EB 





CA 

EA5 
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0 


1 

2 

3 

4 

5 

6 

7 

10 


IA 

TU 

TV 

RA 

TV 

RA 

RP 

RA 

TJ 

MJ 

CA 


EB 

VV6 30000 
VV 30000 
FD CC22 
VV6 VV2 
VV VV2 
20002 EB7 
EB CC21 
CC56 30000 
0 BD5 
EBll 


Come from EA4 or EE4 or EE5 

Set by HH12 to [fDi] CW —» FDl 

Set by HH13 to [fD2] K— > FD2 

Adv. counter in FD by 2 in u 

v of j’th word —*.temp 1 

K + temp 1 —> K. Updates drum addr. 
next item. 

Adv. addr. in Dir. I for next CW. 


Set by HH21 to FB, later by MB12 to 
FF f in between used by DF5 in RJ. 
Is Directory 1 too long on drum? 
Jump to alarm: THE PROBLEM IS TOO 
LONG. 


IA EC 

0 SP VV 17 

r 

1 TU A SDl J 

2 TV CC41 EE4 

3 MJ 0 EB 

CA EC 4 


Come from EE4 


K —> 2nd word Directory 




D )-*«(C2)set in order to 
^i^region later 

© 


ii 

skip this 
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Come from BB13 


© 


1 

2 

3 

4 

5 

6 
7 


IA ED 
TP CC15 A 
QS 5 ED4 
TU VV6 VV7 
TP VV7 A 
RP 20000 ED6 
EJ LI EE 
TV VV6 W2 
MJ 0 FCll 
CA EDlO 


1 

i 


Fill u of RP 


CW -> A 


v of j*th word —> temp 1 




® : 
© 5 


IA EE 
TP CC16 Q 
QT VV6 A 
EJ CC17 EE5 
EJ CC20 EE5 
MJ 0 30000 
MJ 0 30000 

CA EE6 


Come from BB13 


Is first CW in Op File item 26-— Or 
27-? 


Set by HH20 to EB t later by EA3 to 
EC and by EC2 to EB 
Set by HH20 to EA, later by EA4 to 
EB 
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Come from EB7 



IA 

FB 

0 

TP 

VV2 A 

1 

AT 

W3 VV10 

2 

TP 

CC24 A 

3 

TJ 

VV10 FB6 

4 

EJ 

VV10 FB6 

5 

MJ 

0 FCll 

6 

TV 

VV1 FB10 

7 

RP 

30170 FB11 

10 

TP 

TI 30000 

11 

RA 

VV1 CC24 

12 

TP 

VV2 A 

13 

AT 

VV3 A 

14 

ST 

CC24 VV2 

15 

TP 

CC23 VV3 

16 

RJ 

TH2 TH 

17 

MJ 

0 FB 


CA 

FB20 


Temp 1 + j ~ > VV10 


Temp 1 + j > 120 -**FB6 


No — >(lo) 

Case when file exceeds block 
TI —> drum 


G + 120 -* G 


Temp 1 - (120-j) —> temp 1 


j = 0 

Bring next block to core 
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Come from FF5 




IA FC 

0 SP W2 17 

1 TP A Wl3 

2 TP CC15 Q 

3 QS W13 FC6 

a T*Tr inn 

±v vvxrv^i 

5 TD VV4 FC7 

6 RP 30000 FClO 

7 TP 30000 30000 

10 RA W1 VV2 

11 RA W2 VV3 

12 MJ 0 HB12 

CA FC13 


RP 3 (temp l) 

TP TI -t- j £drum addr.l 


Bring Op File I item to drum 


Come from FClO or FB5 or ED7 
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Come from EB7 



IA FF 

0 TP W2 A 

1 AT VV3 WIO f 

2 TP CC24 A 

3 TJ WIO FF6 

4 EJ VV10 FF6 

5 MJ 0 FC 

6 TP CC50 A 

7 ST VV5 Wll 

10 TP CC15 Q 

11 QS Wll FF14 > 

12 TO W4 FF15 

13 TV W1 FF15 

14 RP 30000 FF16 

15 TP 30000 30000 

16 RA W1 Wll 

17 RS W2 Wll 

20 TP CC23 W3 

21 RJ TH2 TH 

22 MJ 0 FF 

CA FF23 


Temp 1 + 


WIO 


Temp 1 + j > 120— >FF6 


No_> @ 

Case file exceeds block 


Library Op File —» drum 


G + (120-j ) —>G 

Temp 1 - (120—j) —>temp 1 

j = 0 
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IA 

MB 

0 

0 0 2 

1 

0 0 7777 

2 

TP 

CC26 TH3 

3 

TV 

BC4 BB12 

A 

n t 

IWJ 

rmTO mTT 

±n^ in 

5 

TP 

Til A 

6 

EJ 

CC4 MB10 

7 

MJ 

0 BR7 

10 

TV 

CC44 BB13 

11 

TV 

CC43 HB13 

12 

TV 

CC46 EB7 

13 

RA 

HB13 CC22 

14 

RP 

10002 HB11 

15 

TP 

CC23 W2 


CA 

MB16 


Come from DC16 after List 1 is 
read to drum 

Gets changed constants used by HH 
for presetting used by HH4 


Read 1 block of Tape II and disable 
boxes 3 and 4 


Put second word —►A 
Is it "FILE A 1"? 


No; alarm. 

®-0 


Change test for "end of entry” ”to” 
Tifcr. subrout" 

Clear W2 words in block 

and VV3 words in Op File 1 itemj 


IA ML 

0 TP 5 A 

1 EJ VC10 VC23 

2 SJ ML3 MM 

3 TJ CC26 ML5 

4 MJ 0 MM1 

5 TV CC43 DC17 

6 MJ 0 MM1 

CA ML7 


Come from HB23 

Case no library rout at all skip 
handling libraries but jump to adv. 
tape 1 by 1 block VC23 is patch in 
constant pool FC23 of Phase IT 

Only variable library 
Only fixed library 
Both libraries 

Only fixed library 
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IA 

MM 

0 

TV 

CC66 DAll 

1 

RJ 

TH2 TH 

2 

TP 

TI A 

3 

EJ 

CC7 MM5 

4 

MJ 

0 BR12 

5 

RJ 

TH2 TH 

6 

TP 

Til A 

7 

EJ 

CC6 DA 

10 

RP 

30170 MM12 

11 

TP 

TI 30000 

12 

RA 

MM11 CC24 

13 

TJ 

CC65 MM5 

14 

TO 

HT WM 

15 

MJ 

0 WM 


CA 

MM16 


IA 

TT 


MJ 

0 HG2 


CA 

TT1 


Come from HB23 

Entry for only variable library, 
change exit 

Read next block on Tape 5 


Is first word List 1? 


Jump to alarm: LIST 1 LABEL IN¬ 
CORRECT. 

Read next block of Tape 5 
Is it END OF ENTRY? 

Exit to DA handl. of fixed libr. 


Set by HH14 to LI. Read whole 
List 1 to LI on drum 


Does it exceed region? 


Go to alarm: TOO MANY LIBR. ROOT. 
REFERENCED. 


Come from MLl (with no List l) rsp 
HB13 with List 1 

Exit out of Phase I, go to Phase IT 
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Alarm Routine 


IA WM 

0 TP 30000 DP3 

1 RJ 0P2 UP 

2 MJ 0 HG1 

CA WM3 
IA FT 

0 0 FT1 0 

1 0 FT2 4 Alarm, the problem is too long. 

2 66 33300 15254 

3 51 25463 04701 

4 34 65016 65151 

5 01 46515 03222 

CA FT6 
IA HT 

0 0 HT1 0 Alarm, too many library routines 

referenced in the problem. 

1 0 HT2 11 

2 66 51510 14724 

3 50 73014 63425 

4 54 24547 30154 

5 51 67663 45030 

6 65 01543 03130 

7 54 30502 63027 

10 01 34500 16633 

11 30 01525 45125 

12 46 30472 27777 

CA HT13 
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Constants 


IA CC 

0 50 00105 TI 

1 01 01323 05001 

2 01 66245 23001 

3 01 01015 15201 

4 31 34463 00104 

5 30 50270 15131 

6 01 30506 65473 

7 46 34656 60104 

10 65 67255 46650 

11 01 31344 63001 

12 74 74747 47474 

13 0 77777 0 

14 00 77777 

15 0 7777 0 

16 0 77000 0 

17 0 27000 0 

20 0 26000 0 

21 0 0 2 

22 0 2 0 

23 0 0 0 

24 0 0 170 

25 0 0 OP 

26 50 00102 TI 

27 10 5 0 
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30 

10 2 0 

31 

0 0 FD1 

32 

0 0 FD2 

33 

0 TI LI 

34 

0 0 6 

35 

0 0 7 

36 

0 30170 ML 

37 

0 0 EE 

40 

0 0 EA 

41 

0 0 EB 

42 

0 0 FB 

43 

0 0 TT 

44 

0 0 ED 

45 

0 0 EC 

46 

0 0 FF 

47 

0 TI 0 

50 

0 170 0 

51 

0 0 BC 

52 

0 0 77 

53 

0 10 

54 

0 0 5 

55 

TP TI BE 

56 

TV W EF 

57 

0 3 0 

60 

TP A DE 

61 

50 101 TI 
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62 

0 0 1 

63 

RP 30000 DH12 

64 

0 0 3 

65 

TP TI DE 

66 

0 0 MB2 


CA CC67 
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Temporaries W 2764 Segment. Phase I 
WO ( ) K drum address of beginning of item 

1 ( ) G drum address next TI item 

on drum 

2 ( ) Temp 1 ff of word handled already 

within this block 

3 ( ) j (in v) length of Op File to be 

handled next 

4 ( ) TX 0 t j (in u) addr. in tape image 

where next Op File starts 

5 ( ) j (in u) 

6 ( ) ( ) Current word 

7 ( ) Call word (in u) 


10 

Temp 1 + j 

11 

120 - j 

12 

Temp 2=0 (temp 1) 0 

13 

Temp period 

14 

Ind. List 1 and working space 

15 

Ind. for cross ref. in Op File 1 
item of fixed libr. and working 
space 
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Segmentation Phase II 


RE VV2764 

Temporaries Phase I 

RE MB1242 


RE CF2627 


RE LM2641 


RE FA4260 

Op File Ila 

RE ZA77000 


RE BQ632 


RE BR537 


RE ST653 

Segment table 

RE GK1000 


RE TN20 


RE 0P42I 


RE TH21 

Tape Handler 

RE TI3274 

Tape Image 

RE D13464 

Drum Image 

RE SD4156 

Directory II 

RE FD 40101 

Directory I 

RE FP 7660 

Op File lib 

RE 0P45215 

Op File I 

RE LI4160 

List I 

RE TE1300 

Temporaries Phase II 
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RE BB1373 
RE CC1520 
RE CD1536 
RE CE1567 
RE PT1600 
RE DD1602 
RE EE1617 
RE EF1657 
RE EG1672 
RE EH1724 
RE E11754 
RE EJ1766 
RE EK2001 
RE EL2004 
RE EM2017 
RE EN2031 
RE E02064 
RE EP2067 
RE EQ2106 
RE ER2117 
RE ES2124 
RE ET2131 
RE EV2135 
RE EW2150 
RE EX2153 
RE EY2156 


RE EZ2163 
RE LL2165 
RE FF2173 
RE FG2266 
RE GG2273 
RE GH2325 
RE G12360 
RE GJ2404 
RE GL2407 
RE HH2414 
RE RC2464 
RE FC2472 
RE WN2567 
RE BU2572 
RE EU2606 
RE FU2614 
RE FB7660 
RE DA1012 
RE TT1241 

RE WSO 
RE S010000 
RE SM7660 
RE SN10000 
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0 

IA 

MJ 

BB 

0 BB3 

1 

MJ 

0 BQ6 

2 

MJ 

0 ZA10 

3 

TP 

FC12 Q 

4 

QT 

10 TE26 

5 

TP 

FC63 A 

6 

ST 

TE26 A 

7 

TV 

A 10 

10 

MJ 

0 BB14 

11 

QT 

7 TE26 

12 

EJ 

FC7 BB123 

13 

MJ 

0 BB20 

14 

QT 

10 A 

15 

SS 

7 17 

16 

TU 

A 7 

17 

MJ 

0 GI 

20 

TU 

FD BB73 

21 

RA 

BB73 FC10 

22 

TU 

SD BB42 

23 

RP 

10005 BB25 

24 

TP 

FC7 TE22 

25 

RP 

10021 BB27 

26 

TP 

FC7 TE 

27 

TP 

FC17 TE5 

30 

TP 

FC17 TE6 


Come from HG2 Phase I 
Jump to start 
Alarm exit 
Normal exit 


10000 

20000 - ( 00010 ) 00010 
30000 v v 


Is (7) zero? Yes, clear 7 


File 7 
u 

Go to form segm. length for this 
probl. 

Set RP command 

Set MD address of first statement 


Clear temporaries 


Set a and p to same fixed Op File Ila 
addr. ’ 
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31 

32 

33 

34 

35 

36 

37 

40 

41 

42 

43 

44 

45 

46 

47 

50 

51 

52 

53 

54 

55 

56 

57 
60 


TP FC20 TE7 


TP FC7 FP 


RP 13400 BB35 


TP FC7 FA 


TU BB42 BB37 


TP FC45 A 


SA 30000 17 


TO A BB41 


RP 30000 BB43 


TP 30000 DI 


TP DI TE10 


TV Dll TE1 


TV Dll TE4 


TV TE5 BB47 


TO TE10 30000 


TV TE5 BB52 


RA BB52 FC5 


TV Dll 30000 


RJ CEl CE 


RA TE2 FC13 


MJ 0 BB56 


TP FC3 Q 
QT TE10 A 


EJ FC46 DD 


Set y to fixed Op File Hb addr. 
Clear first word of Op File lib area 

Clear Op File TIa area 

Come from BB34 or EE34 

Set u of repeat command BB41 

Transfer next statement Op File item 
to drum 

Record 1st word of statement Op File 
in Temp 1 

# of lines in this statement rout. 
—>t and t^ 

a address to NI 

Statement call word—►Op File Ila 
a address to BB52 
a + 1 

# of lines in routine—a + 1 

Advance a and K by 2 and check 
exceeded region 

Free but needed 

Is CW 26-? 
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Come from BB60 or BB120 




61 

TV 

DI TE15 

62 

RS 

TE15 FC6 

63 

TV 

FC47 TE11 

64 

IJ 

TE15 CC 

65 

MJ 

0 BB66 

66 

RA 

TE6 FC6 

67 

EJ 

TE5 EE 

70 

SP 

A 17 

71 

TU 

A BB72 

72 

SP 

30000 0 

73 

RP 

30000 BB75 

74 

EJ 

FD1 BB77 

75 

MJ 

0 BR5 

76 

02 

0 0 

77 

SN 

Q 17 

100 

SA 

BB73 0 

101 

SA 

BB74 0 

102 

TU 

A BB103 

103 

SP 

30000 17 

104 

TU 

A BB112 

105 

TU 

BB112 BB107 

106 

TP 

FC45 A 

107 

SA 

30000 17 

110 

TU 

A BB111 

111 

RP 

30000 BB113 

112 

TP 

30000 DI 




> 



j 






j 


> 


j 


Set index for # of cross ref. (one 
higher since ind. jump in beginning 
Set addr. of first cross ref —>TEll 

Are all cross references handled? 

Free but needed 

Adv P by 2 

P - a ? yes, go to switch 
Do handl. of P*s 

Next CW to be processed for P —» A 
Set by BB71 
Set by BB20, 21 

Search Directory I for call word 
at addr. /3 

Go to alarm 5 (Directory incorrect) 


-j-n+r in u 
(-j-nfr)f(j +-n) - r 


Set u of BB103 f + pD1 


Set by BB102 

Set this Directory I addr. into u 
of BB112 


30000 in v of A 
Set u address of BB112 
Set by BB105 


Set by BB110 transfer cross ref. 

Op File I item 

Set by BB104 from MD to drum image 
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113 

RA TEl Dll 



Add * of lines in this routine to t 

114 

TV TE6 BB116 




115 

RA BB116 FC5 


► 

Enter # of lines in this routine in 





the address following the CW in Op 

116 

TP Dll 30000 

J 


File Ha 

117 

SP DI 0 

1 

L 

Is 77000 > CW? If no, then 77 

i O r\ 

X £~\J 

TJ FC3 BBoi 

j 

1 

~^(7)g o to set index for handl. 

cross ref. 

121 

RF CFll CF 



Go to handle 77_case 

122 

MJ 0 BB66 



— > (6)(has no cross ref., therefore 
no incfex needed) 

123 

TP FC7 7 


r 

Come from BB13 

124 

MJ 0 BB20 

sj 


Setting of 00007 in case no single 
valued variables 


CA BB125 
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Come from BB64 


IA CC 

0 SP TEH 17 

1 TD A CC2 

2 TP 30000 TE20 

3 TP FC3 Q 

► 

4 QT TE20 A 

5 EJ FC53 CC14 

6 EJ FC46 CC14 

7 TP FC54 Q 

10 QT TE20 A f 

11 EJ FC55 HH 

12 RJ CD13 CD 

13 MJ 0 BB64 

- 

14 RJ CD30 CD14 

15 MJ 0 BB64 

CA CC16 


Put CW at addr. given by TEH in NI 

Save found CW in TE20 

Mask 

27-? 

26-? 

4 -™? 


None of the three cases for Op 
File Ila 

26-or 27— 

Case for Op File lib 
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0 

IA 

TO 

CD 

TE2 CD3 

1 

RA 

CD3 FC10 

2 

SP 

TE20 0 

3 

RP 

30000 CD5 

4 

EJ 

FA2 CDll 

5 

TV 

TE5 CD6 

6 

TP 

A 30000 

7 

RJ 

CE1 CE 

10 

RA 

TE2 FC13 

11 

RJ 

CDll CD12 

12 

RA 

TEH FC5 

13 

MJ 

0 30000 

14 

SP 

TE7 0 

15 

SS ( 

FC20 17 

16 

TU 

A CD21 

17 

RA 

CD21 FClO 

20 

SP 

TE20 0 

21 

RP 

30000 CD23 

22 

EJ 

FP1 CD26 

23 

TV 

TE7 CD24 

24 

TP 

A 30000 

25 

RJ 

CE5 CE4 


Come from CC12 or . . . 

Set n in u of RP command CD3 


Check whether CW already in 
Op File Ila 


Set v of NI 

Place CW in Op File Ila 

Adv. by 2 in v and check over¬ 
flow and take care of 77 case 

Adv. by 2 in u 

Exit possible for Vary 
(DD region) 

Adv. to next cross ref. address 
Exit for RJ 

Come from EOl or EP5 or . . . 
Next addr. in Op File lib 
Subtract first addr. and 
shift to u 

Set n in u of RP command CD21 

Check whether CW already in 
Op File lib 


r 

Set v of NI 

Place CW in Op File lib and adv. 


Op File 
Ila 


Op File 
lib 
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26 

RJ CD26 CD27 

Exit possible for Vary 

27 

RA TE11 FC5 

Adv. to next cross ref. 



address 

30 

MJ 0 30000 

Exit of RJ 


CA CD31 



Op File 
Hb 
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0 

1 

2 


IA CE 


RA TE5 FC6 


Come from CF or CF2 


I'J FC64 30000 ** 

MJ 0 EW 


Adv. next addr. for Op File 
Ila by 2 and check whether 
region exceeded 


Op F IXa 
FA = 4260 

FC64 = SM 
= 7660 
space for 
3400 


3 

4 

5 

6 
7 


0 0 0 


Free 


RA TE7 FC5 


Come from CD25 


TJ FC65 30000 


Adv. next addr. for Op 
File lib by 1 and check 
whether region exceeded 


MJ 0 EW J 

000 Free 

CA CE10 


Op F Hb 
FP = 7660 

FC65 = SN 
= 10000 
space for 
120 


IA 

PT 


(patch) 

TJ 

TE1 

EHlO 

Come from EH3 

MJ 

0 

EQ2 


CA 

PT2 
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IA CF 



Come from BB121 


0 

RA TE12 Dll 



Adv. TE12 


1 

SP MB1 1 

1 

► 

Is # of elements 

> 17776? 

2 

TJ Dll CF6 

J 




3 

SP MB1 0 

1 

► 

Is # of elements 

> 7777? 

4 

TJ Dll CF7 

J 




5 

MJ 0 CF10 

*\ 




6 

RA TE22 FC5 


► 

Adv. TE22 


7 

RA TE22 FC5 





10 

RA TE22 FC5 

J 




11 

MJ 0 30000 



Exit used only in 

RJ, by BB121 


CA CF12 
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IA DD 


Come from BB57 after detected 
26-CW 


0 

1 

2 

3 

4 

5 

6 
7 


TP FC12 Q 
QT TEIO A 
EJ FC57 DD5 
TP DI4 TE20 

RJ CD11 CD 
TP DI3 TE20 
RJ CD26 CD14 
TV FC61 EE 


"■ 



> 


Mask out # of lines 

Is it 4 ? Or 5 ? Go NI 

Qt At*a f oft c*y r* ^ 1 f on +■ 

MW* v \ux mva vuv vn/ x jlv/x ux j iyuv» 

in Op File Ua 

Store (after check) last (jump out) 
CW in Op File lib 

Set switch 


10 RJ DD10 DD12 

11 MJ 0 BB66 

12 TP DI2 TE31 

13 TV BB47 TE23 

14 MJ 0 DDll 

CA DD15 


Chance for jumping once in Vary 
start (orig. set to jump, reset 
by EF14) 

Exit to^^T) 

Save CW of last statem in Vary loop 
Save addr. in Op F Ila of first statem 
CW in Vary loop 

Done once in Vary loop 
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0 


IA EE 


Come from BB67 


MJ 0 EE1 

1 RA TE TE1 

2 SP TE 0 

3 TJ TE21 EE35 

4 RS TE TE1 


Switch for Vary set by DD7 to EF 
(Vary), restored by EE30 

Come from EE or EF11 form T + t —>T 

is M > T? 

T - t —>T 


5 ZJ EE6 EG2 

6 TP TE21 A 

7 TJ TEl EE14 


Is T = 0 ? (i.e. are we at beginning 
of segment?) 

Is t > M ? 


10 SP TE13 17 


11 TU A EE12 


Case t < M and nextT would be > M 
TEl3 was filled when bef. at EE3 
we had gone to EE17 

Record latest statem. CW into first 
word Op File Hb (for IP command) 


12 TP 30000 FB 

13 MJ 0 El 

14 TP FC61 A 


Go and make segment with settings 
before 

Come from EE7 are we in Vary loop? 


15 EJ EE EK 


Yes; go to handl. Vary case 


16 MJ 0 EG5 J 

"'I 

17 TV FC62 EE 

20 TV FC50 DD10 

-/ 


No; go to alarm (statem. too big) 

Come from EE3, case M > T 
Restore switch to Non-Vary case 
Reset RJ to beginning position for 
Vary loop 


21 TP TE5 TE13 

22 TP TE7 TE14 

23 TP TE12 FAl 

24 RA TE3 TE4 


Save values of this 
case, for the case 
we overshoot with 
next statem. 


a -*>Temp 4 = TE13 
y ->Temp 5 = TE14 

TE12 = Temp 3 —> 
second word in 
Op File Ila 
T2 + t2 T2 
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25 

TP FC12 Q 



Come from EF6 

Case we are not yet at end of Vary 

26 

QT TE10 A 



loop or segm. length, 

27 

SP A 17 


r 

Mask 0 0 77777 —» Q 

Adv. u portion of transfer command 

30 

AT BB42 BB42 



by # words in Op File item 

Set u in BB42 

31 

TP FC11 Q 



Have all statem. CW's been processed? 

32 

QT A A 


> 

i.e. t entered in Op File IXa? Detects 



end of needed information 

33 

EJ SD1 FF 




34 

MJ 0 BB35 



No, go back to handle next CW 

35 

TP FC7 TE30 


► 

Patch, clear TE30 and save TE22 in 
TE40 

36 

TP TE22 TE40 



37 

MJ 0 EE17 





CA EE40 
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IA EF 

0 RA TE24 TE1 

1 RA TE25 TE4 

2 TP FCll Q 

3 QT TE31 TE26 

4 QT TE10 A 

5 EJ TE26 EF7 

6 MJ 0 EE25 

7 TP TE24 TE1 

10 TP TE25 TE4 

11 RP 10002 EE1 j, 

12 TP FC7 TE24 J 

CA EF13 


Case we are inside Vary loop 

Come from EEO after having been in DD 


+ *2 “ % 

Mask 0 77777 0 Q 

Are we at end of Vary loop? 

Yes 

No (skip saving a and y since in Vary 
only first import.) 

t 


t„ and t c 
4 5 
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IA EG 

0 RJ EG EGl 

p 

1 MJ 0 EN31 j 

2 TP FC3 Q 

3 QT FA2 A 

4 EJ FC46 EJ 

5 TD BD WN 

► 

6 MJ 0 WN 

7 TP FC7 TE27 

* 

10 TP FC7 TE30 

11 RJ EGll EG12 

12 TV TE5 EGl4 

13 RA EGl4 FC5 ► 

14 RA TE27 30000 

15 TV EG14 EG16 1 

16 RA TE 30000 

17 TP TE21 A 

► 

20 TJ TE EH12 

21 MJ 0 EX 

22 LA A 17 

23 TO A EG25 

24 TP FC3 Q 

25 QT 30000 A 

26 EJ FC46 EH 

27 MJ 0 EG12 


Case T > M, yet we are at the be¬ 
ginning of segment (implies t > M) 

Come from E01. RJ exit for EP15 
Patch to EQ. Exit after region 
check when region not exceeded 

Come from EE5 or EW2 

Is CW at beginning of Op File Ha a 
26-? 


Go to alarm (segm. too big) 

Clear ^ and t^ 

Inserted for jump out of EK 
Come from EGll or EHll or EG27 

tj + (a + l) —*t 2 


T + ( a + l) 


Is 


T >M? 


(37) 


Adv. a by 2 taken out here t see EG30 
now 


Is CW at a a 26--? 
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30 RA TE5 FC6 

' 

31 MJ 0 EG22 


CA EG32 


Patch, come from EM7 adv. a by 2 
(Patch for replaced instruct. EG21) 
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IA EH 

0 RA TE30 FC5 


1 

2 

o 

o 

4 

5 

6 



Come from EE15 or EG26. Case t > M 
and we are not at beg. of segm. 

Set t 0 = 1. Index for Vary within 
Vary ° 

Come from EK2 or EH t - t^ = t 
Is t > M ? 

Case t < M 

Record statem. CW into first CW of 
Op File lib (for IP command.) 


7 MJ 0 EI2 Go to D t exit to write on tape 


10 

RA TE1 TE27 

t + = t restore t since it is still 

too big and we have to 
make beginning segment 
bigger 

11 

MJ 0 EG12 

Go to (34) 

12 

TV TE5 EH14 

Come from EG20 or EH27 

„ We finally made 

13 

RA EH14 FC5 

T - ( a + 1 ) —►T. first part too 

big and have to 

14 

RS TE 30000 

go back to last 
statement and 


form segm. resp. 
back to last Vary 
within Vary 

15 SP TE5 17 

16 TU A EH20 

17 TP FC3 Q L CW at a = 26-? 

20 QT 30000 A 

21 EJ FC46 EQ w Vary beginning, 

0K f go and form 
segment 

22 EJ FC53 EH24 CW at a = 27™? Statem. CW, go to 

check whether Vary inside Vary 
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23 

MJ 

0 EM3 

24 

TP 

TE30 A 

25 

ZJ 

ES EQ1 

26 

RS 

TE5 FC6 

27 

MJ 

0 EV 


CA 

EH30 


IA 

El 

0 

RJ 

ET3 GI13 

1 

MJ 

0 EI6 

2 

TP 

TE5 TE13 

3 

RJ 

ET3 ET 

4 

TP 

TE12 FA1 

5 

TP 

TE7 TEH 

6 

TP 

FC7 TE30 

7 

TV 

FC62 EE 

10 

TV 

FC50 DD10 

11 

MJ 

0 FF 


CA 

El 12 


Other CW (for inst. libr. rout.) 
go farther back and try again 


Is = 0? ~f : 0 Vary in Vary 

=0 not so 

Reduce a by 2 

Jump to try with reduced length 
after hdl. 26, 27 case that go out 

Come from EE13 or EW1 
Set addr. BB42 

Jump to restoring Vary settings 

Come from EH7; save a 

Set addr BB42 

Save 77 count 

Save y 

Restore Vary settings 

Jump to write segment on tape 
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IA EJ 

0 

TP FC-17 TE5 

1 

TP TE7 TE32 

2 

TP FC20 TE7 

3 

TP FC7 XEl2 

4 

MJ 0 EJll 

5 

TP TE13 TE5 

6 

TP TE7 TE32 

7 

TP TE14 TE7 

10 

TP FAl TE12 

11 

TP FC7 TE22 

12 

MJ 0 EG7 


CA EJ13 


IA EK 

0 

RJ EGll EJ5 

1 

TP TE40 TE22 

2 

MJ 0 EH1 


CA EK3 


Come from EG4 resetting to Vary in 
beginning of segm. 


Save TE7= Y in TE32 and set counters 
back to segment start 


Jump to clearing TE22, t,, t q and 
exit 1 6 

Come from EK 

Save TE7 = Y in TE32 and set counters 
back to Vary start 


Clear TE22 

Jump to clearing t, and t« and to 
exit from RJ 


Come from EE15 resetting to Vary not 
in beginning of segment. 

Do resetting of counters 

Reset TE22 
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IA EL 


Come from LLl or LL3 


0 TP FC3 Q 

1 SP TE5 17 

► 

2 TU A EL3 

3 QT 30000 A 

4 EJ FC3 EL6 

- 

5 MJ 0 30000 


6 0 0 0 

7 TV TE5 ELll 


10 RA ELll FC5 J 

11 0 0 0 

- 

12 0 0 0 

CA EL13 


Is CW at hand a 77—-? 


Not 77™, skip changing TE12 and 
TE22 (set to ER or to EL12) 
by EM by EM3 

Adv. resp. reduce TE22 

Adv. resp. reduce TE12 by # of 
instructions 


Used !J! 

Jump back to rout. 
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IA EM 

0 TV FC74 EL5 

1 RP 30002 LL L 

2 TP EM6 ELll 

- 

3 TV ER2 EL5 1 


4 RP 30002 LL2 

5 TP EM10 ELll - 

6 RA TE12 30000 1 


7 MJ 0 EG30 

10 RS TE12 30000 

11 MJ 0 EH26 



CA 

EMI 2 



IA 

LL 


0 

TP 

LL4 EL6 

1 

MJ 

0 EL 


2 

TP 

LL5 EL6 

3 

MJ 

0 EL 


4 

RJ 

LM14 

LM 

5 

RJ 

LM20 

LM15 


CA 

LL6 



Come from EXl 

Set "ER" in v of EL5 

Entrance for going forward 


Come from EH23 

Set "EL12" in v of EL5 

Entrance for going backward 


Const, for ELll, EL12 in forward case 


Const, for ELll, EL12 in backward 
case 


Come from EMI 
Forward 
Come from EM4 
Backward 

Const, for forward 
Const, for backward 
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TA LM 

0 TP FC5 A 

1 SA TE5 17 

2 TU A LM3 l 

3 TP 30000 TE34 

4 SP MB1 1 

5 TJ TE34 UVill 

-> 

6 SP MB1 0 

7 TJ TE34 LM12 

10 MJ 0 LM13 

11 RA TE22 FC5 

► 

12 RA TE22 FC5 

13 RA TE22 FC5 

14 MJ 0 30000 


15 RP 20003 LM17 

16 RA LM11 BB76 

17 RJ LM14 LM 


20 RP 20003 30000 

► 

21 RS LM11 BB76 

J 

CA LM22 


Come from EL6 
Entrance for forward 


Is # of inst. > 17776? 


Is # of inst. > 7777? 


Adv. resp. reduce TE22 


Exit, used in RJ from EL6 for 
forward case 

Entrance for backward 

Change RA to RS in LM11-13 

Handle TE22 for 77 ... when going 
backward 


Exit, used in RJ from EL6 for 
backward case 
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IA EN 


0 

TP TE16 A 


1 

EJ TE5 EH4 


2 

SP TE16 17 

- 

3 

TU A EN5 


4 

TP BB73 EN6 

> 

5 

SP 30000 0 


6 

0 0 0 


7 

EJ FD1 EN10 


10 

SN Q 17 


11 

SA EN6 0 

► 

12 

SA EN7 0 


13 

TO A EN14 

- 

14 

SP 30000 17 


15 

RJ EN15 EN16 

> 

16 

TU A EN24 

a 

17 

TU EN24 EN21 


20 

TP FC45 A 

> 

21 

SA 30000 17 


22 

TU A EN23 

J 

23 

RP 30000 EN25 

•v 

► 

24 

TP 30000 DI 



Come from EQlO 

Are we finished with all CW’s in 
Op File IXa? 

Exit 


Search Dir. I for CW given at 
new a 

Set by EN3 

Set by EN4. RP ... BB75 exit to 
alarm 


Set u addr. in EN14 


Set by EN13 

Set u of EN24. RJ for use in 
addr. ETl 


Set u of EN23 
Set by EN17 


Set by EN22 

Transfer Op File I item to drum image 
Set by EN16 
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25 


TP FC3 Q 


26 

QT DI A 

► Is CW 26-? 


27 

EJ FC46 E0 

Go to handle lib 26-**~ 


30 

EJ FC53 EP 

Is CW 27-? Go to handle 

lib 27 

31 

RA TE16 FC6 

Come from EN30 or EGl or EP2. 

Adv. new a addr. by 2 

32 

MJ 0 EN 

Go back in loop 



CA EN33 




IA EO 

Come from EN27 CW 26- 


0 

RA TE7 FC5 

Adv. Op File lib address 


1 

TJ FC65 EG 

Did we exceed region? No, 
patch EG-EGl to EN31 

go via 

2 

MJ 0 EY 

Yes; jump to make segment 



CA E03 
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IA EP 

Come from EN30 CW27- 

0 

TP FC12 Q 

i 

Mask out # of lines 

1 

QT DI A 

i 

2 

ST FC6 TE17 

Set index for * of cross ref. 

(1 too high, pre-done) 

3 

TU DD12 EP6 

Preset EP6 to DI2 

4 

IJ TE17 EP6 

Are all done? 

5 

MJ 0 EN31 

Yes 

6 

TP 30000 TE20 

(Starts with DI2) 

7 

TP FC3 Q 

| 

► Mask out CW code 

10 

QT TE20 A 


11 

EJ FC46 EP15 

CW = 26-? 

12 

EJ FC53 EP15 

CW = 27-? 

13 

RA EP6 FC51 

Adv. addr of cross ref. 

14 

MJ 0 EP4 

Go to handle next cross ref. 

15 

RJ EG E0 

[ Put CW in Op File lib resp. adv., 

16 

MJ 0 EP13 

J 

CA EP17 

Op File lib addr. (since the CW is 
already in from the first try) 
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0 


IA EQ 

RS TE30 FC5 

1 RJ EQl EQ2 

2 TP FC20 A 

3 EJ TE32 EH4 J 

4 TJ TE7 EQ7 

5 TP FC17 TE16 

6 MJ 0 EQ10 

7 TP TE13 TE16 

10 MJ 0 EN 

CA EQll 
IA ER 

0 EJ FC46 ER3 

► 

1 EJ FC53 ER3 

2 MJ 0 EL12 

3 TU FC74 EL11 

4 MJ 0 EL7 

CA ER5 
IA ES 

0 TV TE5 ES2 

1 RA ES2 FC5 

2 RS TE3 30000 l 

3 RJ ES3 ES4 

4 MJ 0 EH26 

CA ES5 


Come from EH21 


Subtract indicator for Vary in 
Vary by 1 

Inserted for RJ use by EY 

Has anything been in Op File 
lib before we went back? 

No, skip the part EQ (TE32 set by EJl 
or EJ6) 


Is / > FC20? (0 0 FP1) 


Case T was = 0 ~] 


Case T was 4 0 


Set new a in either 
case to starting 
addr. 


Go to handle case Op File lib 


Come from EL5. Handle TE3 for going 
forward 

Is CW 26-? 

Is CW 27-? 

Skip changing TE3 = T2 (v used as 
constant also; by EM3) 

Change in EL11 the TE12 —>TE3 

Jump to change TE3 (but not TE22.') 


Come from EH25 


Handle TE3 for going backward 
Inserted for use in RJ by EV 
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TA ET 

0 SP TE13 17 

1 RJ EN15 EN3 

2 TU A BB42 

3 MJ 0 30000 

CA ET4 

IA EV 

0 SP TE5 17 

1 TU A EV3 

2 TP FC3 Q 

3 QT 30000 A 

4 EJ FC46 EVll 

5 EJ FC53 EV7 

6 MJ 0 EH12 

7 TP TE30 A 

10 ZJ EV6 EVll 

11 RJ ES3 ES 

12 MJ 0 EV6 

CA EV13 
IA EW 

0 TP FC7 A 

1 TJ TE EE10 

2 MJ 0 EG2 

CA EW3 



Come from EI3 or GI14 

Set addr. BB42 


Come from EH27 

CW at a = 26—? 


CW at a = 27—? 

Exit after handling either case 
Is TE30 = 0? 

Reduce TE3 for going backward 

Come from CE2 or CE6 (Op File Ila 
or b exceeded) 

Is T = 0? 

No; make segment (with restor. BB42 
from TE13) 

Yes; start normal Vary way for T = 0 
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Come from EG21 



IA 

EX 

0 

TP 

TE5 A 

1 

TJ 

FC64 EM 

2 

MJ 

0 EH12 


CA 

EX3 


IA 

EY 

0 

RS 

TE5 FC6 

1 

RJ 

EQ1 EH12 

2 

TP 

TE5 A 

3 

TJ 

TE16 EZ 

4 

MJ 

0 EYl 


CA 

EY5 


IA 

EZ 

0 

TP 

FC20 TE7 

1 

MJ 

0 EQ5 


CA 

EZ2 


Is Op File Ha exceeded? 

No 

Yes; go backward where segm. can be 
made 

Come from E02 (after Op File lib 
region exceeded) 

Reduce a by 2 

Go back to next possible break off 
point 

Is a farther back than TE16? 

Yes; break off 
No; go back in loop 


Come from EY3 

Do setting for final Op File lib 
(after it was exceeded) and jump 
to handling Op File Hb 
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IA FF 

0 RJ GJ2 GJ 

1 TP RCl FF 

2 RP 10024 FF4 

3 TP FC35 TI 

4 TP FC27 TI24 

5 TP FC30 TI25 

6 RP 10142 FF10 

7 TP FC35 TI26 

10 RJ FG2 FG 

11 RJ TH2 TH 

12 TP FC31 TI 

13 TP FC32 Til 

14 SP TE13 0 

15 ST FC17 TI2 

16 TP FAl TI3 

17 SP TE 0 

20 SS FAl 0 

21 AT FC6 TI4 

22 SP TE41 0 

23 AT TE3 TI5 

24 RP 10162 FF71 

25 TP FC35 TI6 

26 RJ TH2 TH 


Come from EE33 or 

Jump first to set TE41 t later set by 

FF1 to MJ 0 FF12 

Set switch in FF to MJ 0 FF12 


Set Z' s in beginning of first block 


Done Set FILE A A TWO AAA 
once l done 
once 

Fill up with Z *s 


Set tape hdl. code for right tape 
(3 or 6) 

Write first block 


Set "TWO AAASEGMT" in first 2 words 
of tape 


Set length of Op File Ila for this 
segm. in 3rd word of tape 

Set # of 77——lines in 4th word of 
tape 

# of lines in statements + Routines 
f 2 to 5th word of tape 


Address for IP command (N + + l) 


Fill first block up with Z*s 


Write first block on tape 3 
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27 

30 

31 

32 

33 

34 

35 

36 

37 

40 

41 

42 

43 

44 

45 

46 

47 

50 

51 

52 

53 

54 

55 

56 

57 
60 


SP TI2 0 
DV FC21 TE16 
TP A TE17 
TP RC2 FF70 
TU FC26 FF37 
IJ TE16 FF36 
MJ 0 FF43 
RP 30170 FF40 
TP 30000 TI 
RJ TH2 TH 
RA FF37 FC22 
MJ 0 FF34 
SP TE17 0 
ZJ FF45 FF63 


SP A 17 
AT RC4 FF50 
TO FF37 FF51 
RP 30000 FF52 
TP 30000 TI 
SP TE17 17 
SS FC22 0 
SN A 0 
AT RC5 FF57 
RA FF60 TE17 
RP 30000 FF61 
TP FC35 TI 


Set index how many more 


Remainder saved for # of words 
left over 


Set beginning addr. FA2 (Op File Ha) 
in FF37 

Are all complete blocks written? 

Yes; go to handle last fractional 
block 

Come from FF34 

[FA2] in beginning set by FF33 

Write next block 

Adv. addr. Op File IT 

Go back in loop for next block 

Come from FF35 after all whole blocks 
written. 

Are there words for partial block? 


Set last words in partial block 


Fill rest of block with Z’s 
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61 


RS FF60 TE17 


Restore last instr. 


62 

63 

64 

65 

AA 

UW 

67 

70 


RJ TH2 TH 
TP FC36 TT 
TP FC37 Til 



0 0 0 


71 

72 


TP TI4 TE37 
MJ 0 FF26 
CA FF73 
IA FG 


0 

1 

2 

3 

4 


SP FC40 0 
AT TN TH3 
MJ 0 30000 
SP FC41 0 
MJ 0 FGl 
CA FG5 



Write last data block 
Place end of entry 

Fill up with Z*s 

Write last block 

Set by FF32 to MJ 0 GG or by GG14 
to MJ 0 GG16 

Patch 

Save first TI4 for forming segment 
table 

Set code word for tape 3 resp. 6 
with TN 0 


Set code for: 

WRITE 1 BLOCK OF TAPE 

Set code for: (only used in RJ) 
REWIND TAPE 
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Come from switch FF70 


0 

IA 

TP 

GG 

FC33 TI 

1 

TP 

FC34 Til 

2 

SP 

TE14 0 

3 

SS 

FC20 0 

4 

AT 

FC5 TI2 

5 

RP 

10165 GG7 

6 

TP 

FC35 TI3 

7 

RJ 

TH2 TH 

10 

SP 

TI2 0 

11 

DV 

FC21 TE16 

12 

TP 

A TE17 

13 

TD 

FC4 FF37 

14 

TP 

RC3 FF70 

15 

MJ 

0 FF34 

16 

TP 

FCll Q 

17 

QT 

BB42 A 

20 

EJ 

SDl GI22 

21 

MJ 

0 GH 

22 

TP 

FC35 TI 

23 

TP 

FC35 Til 

24 

RJ 

TH2 TH 


- 

J 


Put TWO A B A SEGMT A in TI and Til 


Put # of entries in TI2 


Fill rest of first block with Z*s 


Write one block 


Set counter for # of blocks 


Save remainder for addr. to fill 
with Z*s 

Restore first addr. ofOp File Hb 

in transfer command 

Set switch E to E2 (MJ 0 GG16) 

Jump to write rest of blocks 

Come from switch FF70. Mask 0 77777 
0 -> Q 

Have all statem. CW*s been processed? 

Yes; go to handle segm. table for 
last segm. and finish up at GG22 

Go back to beginning for next segm. 
after having handled segm. table 


Write sentinel block 
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25 RJ TH2 TH 

26 RJ FG2 FG3 

> 

27 RJ TH2 TH 

J 

30 TP FC42 TH3 


31 MJ 0 BB2 
CA GG32 


Write second sentinel block 

Rewind tape for Op File III 

Transfer parameter to read in 
Phase m 

Go to: EXIT OUT OF SEGMENTATION 
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IA GH 


Come from GG2l. Form segment table 

0 

RJ GH GI15 


Jump (only once) to set ST and do 




presettings 


1 

SP TE22 




2 

AT TE37 A 


► A 4 - 2x of 77 CW’s in Op File Ila 




AtB 170 


3 

DV FC21 TE34 

- 

or 170 


4 

ZJ GH5 GH6 


% 

Is there remainder? 

Must be done 

5 

RA TE34 FC5 


Add 1 for remainder 
of A +■ B 

separate be~ 

“ cause of ZJ 

6 

RA TE34 FC5 


170 

before.* 




Add 1 for sentinel 





block 


7 

SP TE22 1 




10 

DV FC21 TE26 


y 2 x # of 77 CW’s in Op File Ila 




170 


11 

ZJ GH12 GH13 


or B 




md 

170 

)f B 

170 

12 

RA TE26 FC5 


Add 1 for remainder c 

13 

RA TE34 TE26 


Add both terms = * of blocks TE34 

14 

TP TE33 Q 


Mask (event, shifted) — 

15 

SP TE34 33 

i 






Mask the # of blocks 

into segm. table 

16 

QS A ST2 

- 



17 

RA GH16 FC5 


Adv. last instr. by 1 in v 

20 

IJ TE35 GH32 


Go to Exit (handl. next segm) 




Ind 170 down? 


21 

TP FC73 TE35 


Res . ind . 


22 

TV GI21 GH16 


Set GH16 to ST1 in v 


23 

LQ TE33 33 


Shift mask 


24 

RS GH15 FC72 


Reduce shift count by 11 

25 

IJ TE36 GH32 


Go to Exit Ind 3 q down? 

26 

TP GH32 A 


Was this last segm.? 


27 

EJ FC71 GH32 


1 Yes -*■ GH32 
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30 TO EO WN 

31 MJ 0 WN 

32 MJ 0 BB23 

CA GH33 


No 

f alarm MORE THAN 63 SEGMENTS 

J 

Gets changed with last segm. in RJ 
to MJ 0 GI23 
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IA GI 



Come from BB17 (only once) 

0 

TP 12 A 



Indicator for READ, LIST, BOTH in 
u —s»*A 

1 

EJ FC7 GT5 



Zero? 

2 

EJ FC51 GI10 



One? only LIST 

3 

EJ FC13 Gill 



Two? only READ 

4 

SP FC 0 



Three assumed 

5 

AT FC67 ST 



Add space for Tape Hdl + Contr + l + 





Term buffer —>ST 

6 

TV A 12 



Set v part of 12 

7 

MJ 0 GL 



After ST set, do preliminary settings 

10 

RS Gill FC51 



Case only LIST 

11 

SP FC2 0 


> 

Case only READ 

12 

MJ 0 GI5 

J 



13 

TP TE40 TE22 



Come from El set * of 77 CW*s for 
forming segm. 

14 

MJ 0 ET 



Go to setting BB42 (RJ exit of ET3 
is already set to Ell) 

15 

TP FC70 TE33 



Come from GH (only once) put mask 
in 1E33 

16 

TP FC73 TE35 



Set ind. for first time 17 (20 rows) 

17 

TP FC25 TE36 



Set ind. 3 (4 words per row) 

20 

RP 10020 GH1 


* 

Clear rest of segm. table and jump 

21 

TP FC7 STl 



to GHl 

22 

RJ GH32 GH 

1 

* 

Come from GG20 

23 

MJ 0 GG22 

-J 


Case we have last segment 


CA GI24 
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0 


1 

2 


0 

1 

2 

3 

4 


IA 

GJ 

TP 

ST A 

AT 

FC5 TE41 

MJ 

0 30000 

CA 

GJ3 

IA 

GL 

SP 

7 25 

LT 

0 A 

ST 

ST TE21 

RS 

TE21 FC6 

MJ 

0 BB11 

CA 

GL5 


Come from FF 


Set once for whole program N in 
TE41 to FN + 1 for FN f 1 f T 2 
(later formed) 

Used only once in RJ from FF 


Come from GI7 


Set TE21 segment length 
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Come from CCll Case CW 4 



IA 

HH 


0 

TU 

TE2 HH3 

-v 

1 

RA 

HH3 FC10 


2 

SP 

TE20 0 

► 

3 

RP 

30000 HH7 


4 

EJ 

FA2 HH5 


5 

RA 

TEH FC5 

1 

6 

MJ 

0 BB64 


7 

TU 

BB73 HH10 

- 

10 

RP 

30000 HH12 

>■ 

11 

EJ 

FD1 HH14 


12 

TU 

FU WN 

w 

h 

13 

MJ 

0 WN 

w 





14 

SN 

Q 17 


15 

SA 

HH10 0 

► 

16 

SA 

HH11 0 


17 

TU 

A HH20 


20 

TP 

30000 TE26 


21 

TV 

TE5 HH22 


22 

TP 

TE2Q 30000 

r 

23 

RJ 

CEl CE 


24 

RA 

1E2 FC13 

* 


Is this 4-*— CW already in Op File 
Ila? 

No 

Yes 

Adv. to next cross ref. 

See whether all handled? 


Search 

Found 


Not found 
Go to alarm 

Found, put 
drum address 
(where CW placed 
in Op File Ila) 
—^TE26 


search 4™ in 
Directory I and 
store drum ad¬ 
dress (Op Filel) 
in IE26(v) 


Place CW in Op File Ila 

Adv. by 2 in v and check exceeded 
region 

Adv. by 2 in u 
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25 

TP 

FC12 Q 



v mask —>Q 



26 

LA 

TE26 A17 



Ad dr —> u of A 


Adv. to next 








wanted Op 

27 

TO 

A HH30 

1 


v of word in 


File I address 





► 

Directory I—> A 


and put addr. 

30 

QT 

30000 A 





in v of TE26 







► 

Put CW in u 

31 

AT 

TE26 TE26 



Addr. for next 


of TE20 






CW —» TE26 



32 

LA 

A 17 






33 

TO 

A HH34 


- 

Next CW —>u of TE20 



34 

TO 

30000 TE20 



- 



35 

TP 

FC3 Q 



Mask 0 77000 0 —» Q 



36 

QT 

TE20 A 



* 







► 

Is CW 23-? 



37 

EJ 

FC56 HH5 





Is next 








CW 23-*— or 

40 

TP 

FC54 Q 



Mask 0 70000 0 —>Q 

► 

4-? 

Yes f exit 

41 

QT 

TE20 A 


► 

Is CW4 - ? 


this part 

42 

EJ 

FC55 HH5 

w 





43 

TO 

TE2 HH46 



None of them 



44 

RA 

HH46 FC10 






45 

SP 

TE20 0 





Is CW already 








in Op File 

46 

RP 

30000 HH21 





Ila ? 

47 

EJ 

FA2 HH25 







CA 

HH50 



a 
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IA RC 


Constants for switches 


0 MJ 0 FF1 

1 MJ 0 FF12 

2 MJ 0 GG 

3 MJ 0 GG16 

4 RP 30000 FF52 

5 RP 10000 FF60 

CA RC6 

IA WN Alarm routine 

0 TP 30000 UP3 

1 RJ UP2 UP 

2 MJ 0 BB1 

CA WN3 
IA BU 

0 0 BUI 0 Alarm: ONE STATEMENT WITH ALL 

REFERENCES IS TOO LARGE FOR SEGMENT. 

1 0 BU2 12 


2 

51 

50300 

16566 

0 

N 

E 

A 

S 

T 

3 

24 

66304 

73050 

A 

T 

E 

M 

E 

N 

4 

66 

01713 

46633 

T 

A 

W 

I 

T 

H 

5 

01 

24464 

60154 

A 

A 

L 

L 

A 

R 

6 

30 

31305 

43050 

E 

F 

E 

R 

E 

N 

7 

26 

30650 

13465 

C 

E 

S 

A 

I 

S 

10 

01 

66515 

10146 

A 

T 

0 

0 

A 

L 

11 

24 

54323 

00131 

A 

R 

G 

E 

A 

F 

12 

51 

54016 

53032 

0 

R 

A 

S 

E 

G 

13 

47 

36506 

62277 

M 

E 

N 

T 




CA BUM 
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IA EU 


Alarm: MORE THAN 63 SEGMENTS. 


0 

0 EU1 

0 


1 

0 EU2 

4 


2 

47 

51543 

00166 

3 

33 

24500 

11106 

A 

CXI 

\JX 

uouuu 

O A 7Qn 

1 uu 

5 

50 

66652 

27777 


CA 

EU6 



IA 

FU 


0 

0 FU1 

0 


1 

0 FU2 

11 


2 

52 

65306 

72751 

3 

01 

51523 

05424 

4 

66 

34515 

00134 

5 

65 

01543 

03130 

6 

54 

30502 

63027 

7 

01 

25676 

60127 

10 

51 

30650 

15051 

11 

66 

01245 

25230 

12 

24 

54227 

77117 


CA 

FU13 



Alarm: PSEUDO OPERATION IS 
REFERENCED BUT DOES NOT APPEAR. 
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IA FC 

0 0 0 344 

1 0 0 175 

2 0 0 151 

3 0 77000 0 

4 0 FP 0 

5 0 0 1 

6 0 0 2 

7 0 0 0 

10 0 20000 0 

11 0 77777 0 

12 00 77777 

13 0 2 0 

14 0 0 DI 

15 00 Dll 

16 0 FDl 0 

17 00 FA2 

20 00 FP1 

21 00 170 

22 0 170 0 

23 RJ DAll DA 

24 MJ 0 TT 

25 0 0 3 

26 0 FA2 0 

27 31 34463 00101 

30 66 71510 10101 


Constants 

5 + 103^o + l20io for both 
5 + l20io for list alone 
2 + 103^0 for read alone 


Used for patch of Phase I t MLl 


1544 



31 66 71510 12401 

32 65 30324 76601 

33 66 71510 12501 

34 65 30324 76601 

35 74 74747 47474 

36 30 50270 15131 

37 01 30506 65473 

40 71 00103 TI 

41 10 3 0 

42 50 1 1100 

43 0 0 22 

44 0 0 24 

45 00 30000 

46 0 26000 0 

47 00 DI2 

50 0 0 DD12 

51 0 10 

52 00 BB46 

53 0 27000 0 

54 0 70000 0 

55 0 40000 0 

56 0 23000 0 

57 0 0 4 

60 00 TE31 

61 MJ 0 EF 

62 0 0 EEl 
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63 

0 0 SO 

64 

0 0 SM 

65 

0 0 SN 

66 

0 0 5 

67 

0 0 GK 

70 

77 70000 00000 

71 

MJ 0 GI23 

72 

0 0 11 

73 

0 0 17 

74 

0 TE3 ER 


CA FC75 
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Temporaries TE 





Segment Phase IT 

TEO 


T 

# of addresses (generated rout.) 
in segm. for 22, 24, 25, 26, 27, 40, 

50, 77 

1 


t 

# of addresses per sentence? set with 
TV in BB31 

2 

K 


# of entries in Op File Tla 

3 


T2 

# of addr. for 26, 27 only; adv. in 
EE24 T2 + t 2 ^T 2 

4 


*2 

# of addr. per sentence; set with 

TV together with TEl 

5 


a 

Present statem. CW addr. of Op 

File Ila 

6 


0 

Next statem. CW addr. of Op File Ha 

7 


r 

Next statem. CW addr. of Op File lib 

10 

[ ] 

TEMP 1 

Statem. CW(u) +■ * of words in item (v) 
set with TP 

11 


TEMP 2 

Addr. of cross ref. CW; set by ... 

12 


TEMP 3 

# of 77- data words in this segm.; 

adv. by 1 with RA 

13 


TEMP 4 

Op File Ila addr. for this statem. CW 

14 


TEMP 5 

Op File lib addr. for last cross ref. 
of previous statem. CW 

15 


INDEX 1 

Index for # of cross ref; set with TV 

16 


INDEX 2 

# of full blocks to be written and 
used by EN, EQ for storage 

17 

r i 

R 

# words in partial block 

20 

L J 

WS 

Holds CW to be placed, whose addr. is 
in TE11 

21 


[ 1 

Segm. length for problem; fixed for 
whole problem 
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22 


[ 


] 

Counter for # of 77 CW's 
(CW*s, not addresses) 

23 


[ 


] 

Op File Ila address of first statem. 
CW in Vary loop 

24 



U 



25 



*5 



26 

[ 



] 

Storage space used by EF3, BB10, 

HH, GH 

27 





# of instructions for 1 sentence 
at a time 

30 



t 3 


Index that we are in Vary within 
Vary 

31 

[ 

] 



CW of last statem. in Vary loop for 
comparison 

32 


[ 


] 

Storage for y in EG and EH part 

33 

[ 



] 

77 70000 00000 mask shifted for 
segm. table 

34 


[ 


3 

Quotient for GI and GH for segm. 
table 

35 

[ 



] 

Index for 17 q for segm. table 

36 

[ 



] 

Index for 3 for segm. table 

37 

c 



] 

Storage for TI4 of first block 
for segm. table 

40 

c 



] 

Storage for reset TE22 

41 

[ 



3 

Storage for N + 1 
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2. ALLOCATOR 





2. Allocator 


a. ALLOCATION Setup 

The setup routine for the Allocator reads the Dimension List from 
magnetic tape and modifies it so that each array is represented by two words 
instead of the variable (up to six) word items of the original list. The 
modified Dimension List is then stored on the drum for use by the Allocator. 
The Dimension List is modified at this time because the Allocator and later 
the Processor make extensive use of drum storage. Between these phases, the 
Initialization Generator must have more Dimension information than is avail¬ 
able in the modified Dimension List so the original Dimension List is read 
again from tape and stored on drum preceding the operation of that phase* 

After modifying the Dimension List, the setup routine adjusts the 
Dimension List counter (at location 00006) to reflect the length of the mod¬ 
ified list. The counter for the original list is saved at location 00015. 
The tape on Uniservo 5 is then moved forward past the Constant Pool and 
Symbol List so that it is positioned properly for the Allocator to write Op 
File III, Preface, and Termination. 

The seven blocks of the Allocator are then read from the UNICODE 
Master Tape and control is transferred into the Phase. 
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Allocation Set-Up Flow Chart 





















Determine loca¬ 
tion of symbol 
word in buffer 



Store next char¬ 
acter from left 
in last word 
of WS 



Is characters NO 
code = 77? )—> 


Move all char¬ 
acters up one 
location in WS 


YES 


<D 



Assemble word 
and store in 
temporary area 


Have all 
sion List items 
been modified? 



NO 



Store address of 
word following last 
array at end of 
modified Dimension 
Li st 




Store modified Di¬ 
mension List on 
drum for use by 
Allocator 


M 10 


Save large Di¬ 
mension List 
counter (00006) 
in 00015 


Adjust (00006) 
for modified Di¬ 
mension List 





Read Dimension 
List to buffer 


Set beginning ad¬ 
dress for proc¬ 
essing 




Enter BR routine 
alarm 10 compiler 
inconsistency. Tape| 
5 positioned in¬ 
correctly. 


Allocation Set-Up (cont.) 

















Region for Allocation Setup 


RE 

DC 2 2 

Buffer load (in blocks) 

RE 

TH21 

Tape handler 

RE 

DD40101 

Modified Dimension List 

RE 

BR537 

Compiler Inconsistency Routine 

RE 

ZI7230 


RE 

ZZ7270 


RE 

ZR7354 


RE 

ZX7362 


RE 

ZT7403 

(1) Temporary (holds number of 
blocks of Dimension List) 

RE 

WS674 

Working area 

RE 

ZY2705 

Buffer area (= WS 2011) 

RE 

LC674 

Storage and execution address of 
Allocator 

RE 

MA700 

7 = # blocks Allocation phase? 

RE 

LA7064 

LA = last word of buffer area. 


1554 



Allocation Setup 




IA 

ZI 



0 

TP 

ZX 

Q 


1 

QT 

14 

A 


2 

ZJ 

ZI3 

ZI24 


3 

LT 

11 

A 


4 

ST 

ZXl 

ZT 


5 

TP 

ZX2 

TH3 


6 

RJ 

TH2 

TH 


7 

TP 

ZY 

A 


10 

EJ 

ZX3 

ZI12 


11 

MJ 

0 

BR12 


12 

SP 

ZT 

0 


13 

TJ 

ZX4 

ZI16 


14 

RS 

ZT 

ZX4 


15 

TO 

ZI13 

ZR 

© 

16 

RJ 

ZZ63 

zz 


17 

TP 

ZX2 

TH3 


20 

RJ 

TH2 

TH 


21 

TP 

ZY 

A 


22 

EJ 

ZXl 7 

ZI25 


23 

MJ 

0 

BR12 

0 

24 

TP 

6 

15 

0 

25 

SP 

14 

0 


26 

LT 

3 

A 


Is there a Dimension List? 

# blocks Dimension List —>temp. 

Read one block and check label for 
DIMENS. 

Tape #5 positioned incorrectly. 

Will Dimension List exceed buffer 
area? 

Reduce block count by buffer length. 

Set to read full buffer of Dimension 
List. 

To build modified Dimension List. 

Read one block and check label for 
E N D A 0 F 

Tape #5 positioned incorrectly 
Large Dimension List counter —»15. 

# blocks in Constant Pool 
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27 

LQ 

14 

017 1 

30 

QA 

ZX13 

A 

J 

31 

SP 

A 

25 

32 

AT 

ZX15 

TH3 l 

33 

RJ 

TH2 

TH 

34 

TP 

ZX16 

TH3 

> 

35 

RJ 

TH2 

TH 

36 

MJ 

0 

LC 


CA 

ZI37 



Add # blocks in Symbol List 

Move Uniservo #5 forward past 
Constant Pool and Symbol List. 

Read Allocation Phase to H.S.S. 
Jump to Allocation Phase. 


1556 








IA 

ZZ 


0 

TV 

6 

ZZ3 

1 

IJ 

ZZ3 

ZZ6 

2 

MJ 

0 

ZZ63 

3 

0 

0 

0 

4 

RA 

ZZ10 

ZX11 

5 

TJ 

ZX12 

ZZ7 

6 

RJ 

ZR5 

ZR 

7 

TP 

ZX6 

Q 

10 

QT 

30000 

A 

11 

ZJ 

ZZ12 

ZZ4 

12 

TU 

ZZ10 

ZZ13 

13 

TP 

(30000) 

(WS10) 

14 

RA 

ZZ13 

ZX7 

15 

TV 

ZZ13 

ZZ40 

16 

RA 

ZZ13 

ZX7 

17 

TP 

ZX10 

ws 

20 

RP 

10005 

ZZ22 

21 

TP 

7X1 

WS2 

22 

RA 

ZZ10 

ZX11 

23 

TJ 

ZX12 

ZZ25 

24 

RJ 

ZR5 

ZR 

25 

TO 

ZZ10 

ZZ26 

26 

LQ 

30000 

6 

27 

QT 

ZX13 

WS7 


Set index to # items in 
Dimension List 

Reduce index by one 

To exit 

Index 

Advance address within buffer. 

Still in buffer? 

No; so go to read in next block 

Bit 29 mask —>Q 

Bit 29 of word —> A 

If = 0 t recycle 

If not = 0, store first word 
( drum address) 

Advance to next word 

Set address of 1st word for next 
variable 

Set index for character count. 
Fill with XS3 spaces 

Text for end of buffer area 

Read in 2nd buffer load 
Set to address of symbol word 

One digit —>WS7 
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30 

EJ 

ZX13 

ZZ34 



If = 77, go to assemble digits 


31 

RP 

30006 

ZZ33 



If 7 ^ 77, move digits up one word 
the image. 

in 

32 

TP 

WS2 

WSl 





33 

IJ 

WS 

ZZ26 



6 digits? 


34 

SP 

WSl 

6 





35 

RP 

20004 

ZZ37 


- 



36 

SA 

WS2 

6 


Assemble digits in ^ 


37 

SA 

WS 6 

0 

i 

J 




40 

TP 

A 

30000 



Store assembled word. 


41 

U 

ZZ3 

ZZ4 



Recycle to get all arrays 


42 

TV 

ZZ13 

ZZ53 





43 

RS 

ZZ40 

ZX7 





44 

TV 

A 

ZZ52 


► 

Set addresses to calculate and 


45 

TP 

ZZ2 

ZZ25 


store final word 


46 

RJ 

ZZ25 

ZZ22 





47 

RJ 

ZZ25 

ZZ22 





50 

TO 

zzio 

ZZ51 





51 

TU 

30000 

ZZ3 





52 

RA 

ZZ3 

30000 


> 

Form and store final word. 


53 

TP 

A 

30000 





54 

RP 

32001 

ZZ56 


k. 

Store modified Dimension List. 


55 

TP 

WS 10 

DD 





56 

TP 

6 

15 



Save counter for large dimension 

list 

57 

TP 

ZX14 

Q 

•v 




60 

SP 

6 

20 


► 

Adjust (00006) for modified 
Dimension List. 


61 

SA 

ZX 11 

0 
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62 

QS 

A 

6 

63 

MJ 

0 

30000 

CA 

ZZ64 




IA 

ZR 


0 

SP 

[zi] 

25 

1 

AT 

ZX5 

TH3 

2 

RJ 

TH2 

TH 

3 

TU 

ZX20 

ZZ10 

4 

TU 

Zl 12 

ZR 

5 

MJ 

0 

30000 


CA 

ZR6 



Read Dimension List to buffer 


Set beginning address for processing 
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IA ZX 


0 

07 

70000 

0 



1 

0 

0 

2 



2 

50 

105 

ZY 



3 

27 

34473 

05065 

D I 

MENS 

4 

0 

0 

DC 



5 

50 

5 

ZY 

Read 

Parameter (except # blocks.) 

6 

0 

40000 

0 



7 

0 

0 

1 



10 

0 

0 

5 



11 

0 

1 

0 



12 

QT 

LAI 

A 

LA = 

last word of buffer area 

13 

0 

0 

77 



14 

0 

7777 

0 



15 

30 

5 

0 



16 

50 

MAI 

LC 



17 

30 

50270 

15131 

E N 

D A 0 F 

20 

0 

ZY 

0 




CA ZX21 
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b. ALLOCATION PHASE 


The Allocation Phase serves two purposes: 

1 ) Builds Op File III for each segment and writes on tape. 

Op File III (2 word items) 


r\ _ 


1 . 

2 . 


Call word 

* lines in routine H.S.S. running lo¬ 
cation 
or 



Call 

word 


14 

Segment # 
from 

03 

Call 

Segment # 
jumped to 

word 

H.S.S. running lo¬ 
cation in another 
segment < 

''If the end 
point of one¬ 
way jump is in 
another seg¬ 
ment 

v 


* of data 

H.S.S. running lo¬ 
cation 

< 

''If call word 
is of the form 
77xxx which 
refers to a 
group of data. 


e.g., xi, x 2 , 
*•• x 10* 


2) Generates the necessary instructions to manipulate data between segments 
during the running program. These instructions are called: 

a) The Preface, which transfers 77xxx type data to their storage loca¬ 
tions in H.S.S. 

b) The Termination, which transfers updated 77xxx type data to their 
designated locations on MD. 

The Preface and Termination instructions operate in H.S.S. during the inter¬ 
lude between 2 segments. After generation of these instructions for each seg¬ 
ment, the Preface and Termination are written on magnetic tape. 
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Input: The Allocator receives as input (from Segmentation): 

1) Op File ITa - call words of routines and data in segment. 

2) Op File lib - call words of end points of all one way jumps within 

the segment. 

These files are on Oniservo tape by segment. 

3) Dimension List with MD storage addresses for 77xxx data. 

Output: The output of Allocation consists of: 

1) Op File III by segments on tape. 

2) Preface and Termination for each segment on drum. 

Procedure: Read Op Files Ila and lib into H.S.S. one segment at a time. Then 
compare each call word in Op File lib against the entire Op File Ila for this 
segment to determine if the end of the jumps (which are actually the words in 
lib) appear in the same segment. If equality is not met, the call word from 
lib is entered in Ila, thus increasing the length of Op File Ila. Each new 

entry into Ila at this time is accompanied with the flag 14 in the operation 

position of the next word. Thus, each new entry in Ila is an entry of 2 
words. Each time an entry is made in Op File Ila the call word from lib is 
also placed in another list, called Directory 4, which will be used only dur¬ 
ing this phase. Each entry in Directory 4 is also a 2 word entry, consisting 
of call word in the first word and the segment number in the second word. An 
item in Directory 4 at this time looks like this: 



Op 

u 

V 

1st word 

00 

Call word 

00000 

2nd word 

00 

0 

Segment 

number 

.......... 

00 

00000 
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The above procedure is followed until all the call words in Op File lib have 
been checked against Op File Ha for one segment. 


Each call word in Op File Ila is then checked to determine the type of 
routine or data to which it refers. 

The determination of the type of routines used in the segment, along with 
the number of lines in the running routine (available in Op File Ila), enables 
us at this time to assign actual operating addresses according to the High 
Speed Storage layout: 


S 

R 

D 


Control being of fixed length and buffer area requirements for this prob¬ 
lem being known, we can locate S exactly. During Segmentation, a separate 
tally of statement lengths permits determination of R exactly. D is deter¬ 
mined by the accumulated tally of total statement and subroutine lengths plus 
two. (The plus two accounts for the locations required by the Processor to 
provide continuity between sequential segments.) With these starting points 


CONTROL SECTION (fixed length all problems; includes Tape Handler) 


BUFFER AREAS for Input-Output Instructions (as required) 


STATEMENTS 


SUBROUTINES 

1) Library Routines 

2) Pseudo Operations 

3) Defining Equations 


DATA AREA 1 

Multiple valued (77—type) 


DATA AREA 2 

Single-valued variables (fixed length for all segments) 


CONSTANT POOL 

(fixed length for all segments) 
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s, R, and E), assignment of memory locations in a forward direction can be 
made according to the category determined by the call word. 

The number of lines of data, or the number of lines in the routine, is 
also used to fill in the u portion of the items in Op File Ila. At this time, 
Op File Ila is beginning to resemble the new Op File III which is actually an 
expanded and modified Op File Ila. 

After completion of the foregoing process for each segment, that segment's 
Op File III (Formerly Op File Ila) is written on the drum, and Directory 3 is 
constructed, containing one word for each segment, in the following format: 

Op u v 

00 MD location of 1st * of words in Op File 

word of Op File III III for this segment 

Thus, the first word in Directory 3 refers to the first segment, the second 

word, the second segment, etc. 

When Op File III for the last segment has been written on the drum, Op 
File III is in its final form for all items except those referring to jumps 
to other segments. But Directory 4 is actually a combined listing of these 
call words for all segments. So, we use the items of Directory 4 to search 
against Op File III (by segment) and fill in Directory 4 with number of the 
segment in which the call word is found, and the operating address of the rou¬ 
tine during execution. This continues until all the entries in Directory 4 
have been processed. A complete Directory 4 item is of the form: 



Op 


u 

V 

1st word 

00 

Call word 

00000 

2nd word 

14 

0 

Segment Segment 

from to 

H.S.S. running 
address in segment to 


1564 




The second word of the above item in Directory 4 is filled into Op File III 
(one segment at a time) in its appropriate place to complete Op File IXI. 

While each segment is in H.S.S. at this time, the instructions for data manip¬ 
ulation are generated and stored on the drum. 

The instructions for data manipulation are prepared from Op File III. 

RuoVi multi nl o wnY»ri rio+u rrmii n Vine aceinnaH on arpa nn Mn o nr? thp Ct art inn 

—■ UWM ***** X, V J.^/X v/ IIVA V( MM VM VJ* VM M W VM Ml* M* MM V** M**M W1* V •# V M* «#X** VJ 

address of the area for each variable is available in the Dimension List. 

Using Op File III and Dimension List information for each 77xxx type call word, 
the Repeated TP*s are generated. When this listing is complete, the w*s of 
Repeat orders are determined and recorded. (Reverse direction for Preface; 
forward for Termination.) The w*s for the Preface are fixed H.S.S. operating 
locations (not relative) since they are generated at a point during compila¬ 
tion when the exact starting address of Data Area 1 (77 - - - type) is known. 
Since the length of the Preface is known when Termination w*s are written, 
they too are assigned fixed addresses in the 120-word buffer area within the 
Control Section. 

The completed Op File III and the Preface and Termination for each segment 
are stored on magnetic tape and will be used during the Processing Phase. 

This phase is complete when Op File III, Preface, and Termination for all 
segments of the problem have been written on tape. 
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Allocation Phase Flow Chart 
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Allocation Phase Flow Chart (cont.) 
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Allocation Phase Flow Chart (cont*) 
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Allocation Phase Flow Chart (Cont*) 

B-l 
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Allocation Flow Chart (cont.) 


NOTE 




(Read in next segment) 


1 


Advance G by L 
Advance D3 and K by 1 
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Allocation Flow Chart (Cont.) 


Place S into v portion 
of a j + 1 


Form: 

S + Temp 1—^ S 


Place D into v 
portion of a j + 1 


Form 

D + Temp 1—>D 


0 - 


Initialize: 

Set P = 1 (segment #) 

Set index 2=M - 1 
Set D3 to D3 initial (1st address 
of Directory 3) 


Set D4 to the 1st ad¬ 
dress of Directory 4, 
Set index 1 = M - 1 
M = # items in Direc¬ 
tory 4 


Transfer Op File III 
for segment P from drum 
to H.S.S. 

RP n w 

TP u Op File 

image 


Transfer u portion of Pth word to 
u portion of TP command in B-3 
and transfer v of Pth word to n 
of RP commands of B-3 and B-4 


Obtain Pth word from 
Directory 3 
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Allocation Flow Chart (Cont*) 











Set D4 = fixed address YES 
of Directory 4. Set 
index 1. = M 


r Have all items 
of Directory 4 
been processed? 
i.e. index 2-0? 


m 
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Index 1^ = 0? 

(Set initially 
to # items in 
Directory 4) 


YES 



Obtain bits 21-26 of 
D4+1 in K 



Is K = P ? 


YES 



M 20 



Add one to 
Index 1 


[Add one to HS 
address in 1st 
IP command 


NO 














Advance D4 by 2 


Replace word just 
tested by the 
contents of D4 + 1 
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Allocation Flow Chart (cont.) 


Initialize for Segment P 
Set Preface area in H.S.S. to oc 
Set Termination area in H.S.S. top 
Set Box 17 

n = length of Op File 3 
(from B-5) 

u = 1st H.S.S. of Op. File 3 
for seg j 


Enter 76777 in A. 
Search Op File 3 for 
77XXX. Found? 

75 2 n w 

42 u v 


Use Q to reset B-7 to 
continue search, i.e., 
reduce n by r } increase 
u by r 




Allocation Flow Chart (Cont.) 


Is the number of 
lines of data for 
this array >7777 


7777g? 


Determine from call 
word the location in 
Dimension List of the 
drum address for this 
array. 


Set number of words 
for this array to 77778 
to build Preface and 
Termination. Reduce 
original number by 7777. 



















Allocation Flow Charts (Cont.) 


Insert in w of last 
RF of termination 
control address to 
read in next segment 


If more than one block 
of termination, insert 
in w of last RP command 
of each block (except 
last) the control ad¬ 
dress to read in 
another block of termi- 


/ Is Uniservo 5 
tape being written \ 
for first time in this) 
phase? / 



Sum the number of 
blocks already written 
on tape 5 by other 
phases 







Allocation Flow Chart (Cont.) 












Write two full 
blocks of Z's 
on tape 5 













Allocation Regions 


RE 

GT21 | 


RE 

UP421 l 


RE 


Subroutines 

RE 

BQ632 J 


RE 

CA674 


RE 

CB763 


RE 

CC1020 


RE 

CD1056 


RE 

CE1120 


RE 

CF1175 


RE 

CG1237 


RE 

CH1266 


RE 

Cl1321 


RE 

CJ1355 


RE 

CK1407 

Begin Data manipulation 

RE 

CL1435 

Stores information for Preface and 
Term. 

RE 

CM1450 ' 

\ Build Preface and Term, in 

RE 

CN1505 . 

] buffer areas 

RE 

CP1522 

Sets up "W" of RP-TP for exit of 

Term. 

RE 

BK1545 

Preparation for writing onto tape 

RE 

CQ1557 

Write Op File III onto tape 

RE 

CR1645 

Write Preface, this segment onto tape 

RE 

CS1707 

Write Termination this seg. onto tape 

RE 

CT1742 

Exit region 

RE 

2Z1760 

Storage and constants 

RE 

ZY2144 

Error Printout 

RE 

ZW2174 

Warning Printout 

RE 

C02213 

Patch correction regions (27) fl loc. 

| H.S.S. Address Op. F. 2A-6 

RE 

FA3142 ' 

RE 

ZA3142 . 

RE 

ZB2545 

Fixed address of Directory 3 

RE 

ZC42102 

Fixed drum address of Op File III 

RE 

ZD2644 

Fixed address of Directory 4 

RE 

LD2242 

Limit of drum (77000) R 

Limit of tape (4704)^ 

Tape Image 

RE 

TL2243 

RE 

TI2355 

RE 

CU6 

For assigning loc. for CT13 & CT16 

RE 

ZF7000 

Fixed address for building Preface 

RE 

ZG7400 

Fixed address for building Term. 

RE 

ZX76000 

H.S.S. dump of TI for checkout 

RE 

BS76017 

Region for generating M.S.’s in 
checkout 

RE 

ZE7230 

Fixed address of LOC 2B 

RE 

CX2255 ' 

1 Patch correction allowing 

RE 

CZ2323 

( data arrays > 7777 
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Allocation 


© 

® 



IA 

CA 


0 

MJ 

0 

CO 4 

1 

RJ 

GT2 

GT j 

2 

TP 

TI24 

A N 

3 

EJ 

ZZ43 

CA5 

4 

MJ 

0 

BRIO 

5 

TP 

TI25 

A 

6 

EJ 

ZZ44 

CA10 

7 

MJ 

0 

BRIO j 

10 

Tin 

ir 

*~7n 

n a 2 l 
LrtUO 

11 

TP 

ZZ25 

ZZ103 

12 

TP 

ZZ31 

ZZ107 

13 

TP 

ZZ31 

ZZ62 

14 

TP 

ZZ16 

ZZ106 

15 

TP 

ZZ17 

ZZ72 \ 

16 

TP 

ZZ20 

ZZ71 J 

17 

TP 

ZZ31 

ZZ105 

20 

TP 

ZZ52 

GT3 \ 

21 

RJ 

GT2 

GT J 

22 

TP 

TI 

A 

23 

EJ 

ZZ45 

CA32 

24 

EJ 

ZZ46 

CA51 

25 

EJ 

ZZ51 

CA27 

26 

MJ 

0 

BRIO 

27 

TP 

TI24 

A 

30 

EJ 

ZZ51 

CA65 

31 

MJ 

0 

BRIO 

32 

TP 

TI2 

ZZ110 

33 

TP 

TI4 

ZZ113 

34 

TP 

TI4 

ZA2 ^ 

35 

TP 

TI5 

ZA3 J 

36 

TP 

TI5 

ZZ112 

37 

TV 

ZZ21 

ZZ102 

40 

SP 

ZZ21 

17 1 

41 

TU 

A 

CA44 j 

42 

TP 

ZZ102 

GT3 \ 

43 

RJ 

GT2 

GT } 

44 

TP 

[30000] 

A 1 

45 

EJ 

ZZ47 

CA20 J 

46 

RA 

ZZ102 

ZZ30 

47 

RA 

CA44 

7221 

50 

MJ 

0 

CA42 

51 

RA 

ZZ102 

ZZ30 

52 

TP 

TI2 

ZZ111 

53 

TV 

ZZ22 

ZZ102 


Head in tape label (1st Bk) 
i,e, f 'FILEA ATWOAAA’ 


Test for proper label 
of Tape #3 (1st Bk) 


Set connector A to A1 
Segment #1 —>K 

0 —>M (word count Directory 4) 

0—>Temp 1 (# lines rtne. for 
current C/W) 

MDAF3—>G (fixed drum address 
Op File III) 

Set Dir. 4 & Dir. 3 to 
fixed address 

0—>C (C u — count of segments) 
Read in next block 
into TI 

First word—>A 

Test for ’TWOAAA'—>CONN 38 
Test for 'TWO A B A *—>C0NN 40 
Test for 'ZZZZZZ* 

21st word to A 

Test for ’ZZZZZZ’—»C0NN 42 

Length this segment II a —>L 
Start to build D for this segment 
5th & 6th words saved 
for Op File III 

—>R = next address to assign to 
rtnes. 

Set up L0C2A address in code word 
for GTH 

Set up "test word” address 

Read in next block into Ila area 

Test first word for ENDAOF 
(CA20 ) 

GENCOD 4- 120—>GENCOD 

Test word address 4- 120—>Test 

word address 

Jump to read next block (CONN 39) 
GENCOD 4- 120—>GENCOD 
Length lib this segment—^1 
TV L0C2B GENCOD 
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54 

SP 

ZZ22 

17 \ 


55 

TU 

A 

CA60 J 

@ 

56 

TP 

ZZ102 

GT3 \ 


57 

RJ 

GT2 

GT 1 


60 

TP 

30000 

A \ 


61 

EJ 

ZZ47 

CA66 J 


62 

RA 

ZZ102 

ZZ30 


63 

RA 

CA60 

ZZ27 


64 

MJ 

0 

CA56 


65 

TP 

ZZ1 

CA66 


66 

[30 

0 

o ] 


CA 

CA67 




IA 

CB 


© 

0 

TP 

ZZ21 

ZZ76 \ 


1 

TP 

ZZ22 

ZZ77 J 


2 

SP 

ZZ77 

0 \ 


3 

AT 

ZZ111 

ZZlOlf 


4 

MJ 

0 

CB5 

/—\ 

5 

RA 

ZZ105 

ZZ25 

o 

6 

SP 

ZZ22 

17 


7 

TU 

A 

CB17's 


10 

TU 

A 

CB33 l 


11 

TU 

A 

CB12 J 


12 

SP 

[30000] 

° ) 


13 

ZJ 

CB17 

CB14 J 


14 

TP 

A 

ZA4 "l 


15 

TP 

A 

ZA5 J 


16 

MJ 

0 

CC33 


17 

TP 

[30000] 

ZA4 "j 


20 

MJ 

0 

CB27 J 


21 

TP 

ZZ41 

ZA5 


22 

SP 

ZZ103 

6 1 


23 

TP 

A 

30000J 


24 

RA 

ZZ72 

ZZ32 


25 

RA 

ZZ107 

ZZ26 


26 

MJ 

0 

CC33 


27 

SP 

ZZ72 

0 


30 

TV 

A 

CB33 


31 

SA 

ZZ26 

0 


32 

TV 

A 

CB23 


33 

TP 

30000 

30000 


34 

MJ 

0 

CB21 



CA 

CB35 



Set up address for test of 
ENDA OF for Op File lib 

Read 1 block into lib area 
Test word for ENDA OF 

->CONN A 

GENCOD 4- 120—>GENCOD 

Test word address + 120—>Test 

word address 

Jump to read next block 

Either MJ CONN A1 or CONN A2 


Set up AJ & BI this segment 
L0C2A—>AJ ; L0C2B—*BI 

Form test address to indicate 
end of Op File lib list 
C + 1—>C (seg. counter) 

L0C2B—>A 

u 

Set commands with first address of 
Op File Hb 

Is first word of Op File lib = 0 ? 

Zeroize 5th and 6th words of Op File 
Ha 

Jump to(3) 

Record first call word of Op File 
lib into 5th word of Op File Ha 
and first word of Directory 4 
Flag—>next word of Op File Ha 
Insert segment # in second 
word of Directory 4 
Dir. 4 + 2—>Dir. 4 (next loc.) 

M +■ 1—>M (count of items in 
Directory 4) 

Jump to(3) 

Dir. 4->V 
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© 




© 



IA 

cc 


0 

SP 

ZZ110 

17 1 

1 

SA 

ZZ135 

0 f 

2 

TU 

A 

CC6 J 

3 

SP 

ZZ77 

17 ) 

4 

TU 

A 

CC5 } 

5 

SP 

[ 30000] 

o f 

6 

RP 

[30000J 

ccioS 

7 

EJ 

ZA4 

CC33) 

10 

TP 

A 

ZZ115 

11 

SP 

ZZ2i 

0 

12 

SA 

ZZ110 

0 

13 

TV 

A 

CC15 

14 

TV 

ZZ72 

CC16 

15 

TP 

ZZ115 

[30000] 

16 

TP 

ZZ115 

[.3000(3 

17 

SP 

CC15 

0 1 

20 

SA 

2Z26 

0 

21 

TV 

A 

CC22 y 

22 

TP 

ZZ41 

[30000], 

23 

SP 

CC16 

0 1 

24 

SA 

ZZ26 

0 

25 

TV 

A 

CC27 , 

26 

SP 

ZZ103 

6 

27 

TP 

A 

[30000] 

30 

RA 

ZZ72 

ZZ32 

31 

RA 

ZZ110 

ZZ32 

32 

RA 

ZZ107 

ZZ26 

33 

RA 

ZZ77 

ZZ26 

34 

EJ 

ZZ101 

CD 

35 

MJ 

0 

CC 


CA 

CC36 



IA 

CD 


0 

RA 

ZZ112 

ZZ26 

1 

TP 

ZZ2 

Q 

2 

QT 

12 

ZZ114 

3 

RA 

ZZ113 

ZZ114 

4 

SP 

ZZ76 

0 1 

5 

AT 

ZZ110 

zziool 

6 

SP 

ZZ76 

17 \ 

7 

TU 

A 

CD16 ) 

10 

SA 

ZZ25 

0 

11 

TU 

A „ 

ZZ115 

12 

TU 

A 

CD 15 

13 

LT 

25 

A 


Set n of RP to L; j = 2. 


Pick up "u" portion of BI in A 

Test Op File Ila for CW from 

Op File IIb 

Hold Ar in WSl 

L0C2A—>A'i c . nn , _ 

A + L —>A I SetUf) CC15 

J 

WSl— >i.e. store CW in BI at Op F. 
2A 4- L and in Directory 4 


Setup CC22 

Insert flag at 0p.f:2A 4- L 4- 1 
Set up CC27 


21 

Insert K x 2 Cseg. *) in Directory 4 
Dir. 4 4- 2—>Dir. 4 (next loc. 
available) 

L 4- 2 —>L (length 4- 2) 

M 4- 1—>M (count of items in 
Directory 4) 

BI 4- 1—>BI (address next Op 
File lib item) 

Test for completion of BI test 
Jump to CONN 2 


Set R to address following IP 

command 

Set up mask V 

Mask * (S) ’ from location (12), 
D 4- S—>D 

Form test address to indicate 
end of expanded Ila list 
CW address—> A 

u 

1 in u 

(CW address) 4- 1—>(WS1) 

u 

Shift (CW address) 4 1 to A 

v 


1585 



© 


© 


© 


© 


14 

TV 

A 

CD20 


15 

TV 

[30000] 

ZZ62 

& lines in rtne in Temp 1 

16 

SP 

[3000(3 

0 

CW—>A 

17 

LQ 

ZZ62 

17 

Shift n# lines to u position 

20 

TU 

ZZ62 

[30000) 

# lines—>u of second word of item 

21 

LT 

14 

A 


22 

EJ 

ZZ124 

CD25 

Test "26" CW 

23 

EJ 

ZZ125 

CD25 

Test "27" CW 

24 

MJ 

0 

CE 

Jump to(5) 

25 

SP 

ZZ115 

0 

26 

TU 

A 

CD27 


27 

SP 

[30000] 

0 

> Test for flag "14" 

30 

TP 

ZZ5 

Q I 

31 

QT 

A 

A 


32 

EJ 

ZZ41 

CE16 J 

Jump—>-6 

33 

SP 

ZZ115 

0 

(CW address) 4- 1—>A 

34 

LT 

25 

A 

(CW address) 4- 1—>A U 

35 

TV 

A 

CD36 1 

V 

i 

36 

TV 

ZZ114 

[30000] J 

| Send S to v portion of 2nd word of 

item 

37 

LQ 

ZZ62 

25 


40 

RA 

ZZ114 

ZZ62 

Jump to(6) 

41 

MJ 

0 

CE 16 


CA 

CD42 



IA 

CE 


Test 77 type CW—>@ 

0 

EJ 

ZZ126 

CF 

1 

MJ 

0 

CE 10 

Assume 25, 24, 22, 5, or 4 

2 

0 

0 

170 


3 

0 

0 

0 


4 

0 

0 

0 


5 

0 

0 

0 


6 

0 

0 

0 


7 

0 

0 

0 


10 

SP 

ZZ115 

0 

(CW address) 4- 1 — > A 

11 

LT 

25 

A 

(CW address) 4- 1—>A U 

12 

TV 

A 

CE13 ' 

V 

1 

13 

TV 

ZZ112 

[30000] 

J R—>v portion 

14 

LQ 

ZZ62 

25 

s lines shifted in Temp 1 

15 

RA 

ZZ112 

ZZ62 

R 4- # lines—»R 

16 

RA 

ZZ76 

ZZ32 

Address of CW address 4- 2 

17 

EJ 

ZZ100 

CE21 

Jump to@when end of Op File Ha 





reached. 

20 

MJ 

0 

CD6 

Jump(4) 

21 

TP 

ZZ103 

FA 

Seg. *->0p File III 

22 

RA 

ZZ110 

ZZ32 

L 4- 2—>L 

23 

SA 

ZZ35 

0 

A = L ; A 4- 4—>A 

24 

SA 

ZZ106 

0 

Add G (next open M.D. address for 
Op File III 

25 

TJ 

LD 

CE27 

Test limit of drum 

26 

MJ 

0 

ZW1 

—> Error print & jump to BQ6 
(rewind tape, etc.) 

27 

SP 

ZZ110 

17 

L >A U 
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30 

TP 

A 

ZA1 


31 

SA 

ZZ34 

0 


32 

SA 

ZZ37 

0 


33 

TU 

A 

n 

CE35 


34 

TV 

ZZ106 

CE36 


35 

RP 

[30000] 

CE37 \ 


36 

TP 

FA 

[30000] J 


37 

TV 

ZZ71 

CE42 


40 

TV 

ZZ71 

CE44 


41 

SP 

ZZ106 

17 


42 

TU 

A 

[30000] 


43 

MJ 

0 

CE52 


44 

TV 

A 

[30000] 


45 

RA 

ZZ71 

ZZ26 


46 

RA 

ZZ103 

ZZ25 


47 

RA 

ZZ106 

ZZ110 


50 

AT 

ZZ35 

ZZ106 


51 

MJ 

0 

CA20 


52 

SP 

FA1 

0 


53 

LT 

25 

A 


54 

MJ 

0 

CE44 



CA 

CE55 


© 


IA 

CF 


0 

SP 

ZZ115 

0 

1 

LT 

25 

A 


2 

TV 

A 

CF3 ], 


3 

TV 

ZZ113 

[30000] J 


4 

LQ 

ZZ62 

25 \ 


5 

RA 

ZZ113 

ZZ62 J 


6 

MJ 

0 

CE16 

© 

7 

SP 

ZZ107 

0 


10 

ZJ 

CF13 

CF11 


11 

TP 

ZZ31 

ZZ120 


12 

MJ 

0 

CH24 

13 

TP 

ZZ25 

ZZ104 

14 

ST 

ZZ26 

ZZ121 

©-»■ 

15 

TP 

ZZ17 

ZZ72 

16 

SP 

ZZ107 

0 \ 


17 

ST 

ZZ26 

ZZ120 J 


20 

SP 

ZZ20 

17 


21 

SA 

ZZ104 

0 


22 

SS 

ZZ25 

0 


23 

TU 

A 

CF25 


24 

TU 

A 

CF26 


25 

TU 

[30000] 

CF34 


26 

SP 

[30000] 

17 


27 

MJ 

0 

CF35 


30 

SA 

ZZ34 

0 


31 

SA 

ZZ37 

0 


32 

TU 

A 

CF33 


A u —words Op File III 
Add 4 in u 
Add 3 in j 


Transfer L f 4 words of 
Op File III to MD at G 


G—>A 

u„. . _ .. o 

a —^uireutur}' o 

* lines in Op File III—>A V 

A v —^Directory 3 


Jump to(l); read in next seg. 


CCW address) 4- 1— 

(CW address) 4- 1—>A y 
D—>(CW address) 4- 1 

# lines 4- D—>D 

Jump to© 

M—>A 

0 —»Index 1 
Jump to (l?) 

1 u‘^ p u 

M - 1 —>Index 2 

Set Dir. 4 to fixed address 

M - 1 —>Index 1 

Item address of Directory 3—>A U 
Add P 

Subtract l u Transfer u-portion 
of pt* 1 word in Directory 3 
to transfer command 
and th 

Transfer v-portion of p word 
in Directory 3 to n of RP command 
4- 4 in u 
f 3 in j 
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33 

RP 

[30000] 

CG \ 

34 

TP 

[30000] 

FA J 

35 

TU 

A 

CG12S 

36 

RA 

CG12 

ZZ36 J 

37 

TU 

CF26 

CF40\ 

40 

SP 

30000 

17 J 

41 

MJ 

0 

CF30 


CA 

CF42 


IA 

CG 


0 

TP 

ZZ5 

Q 

1 

SP 

ZZ72 

17 

2 

TU 

A 

CGll 

3 

SA 

ZZ25 

0 

4 

TU 

A 

CG5 

5 

SP 

[30000] 

0 

6 

QT 

A 

A 

7 

EJ 

ZZ41 

CH 

10 

MJ 

0 

CGll 

11 

SP 

30000 

0 

12 

RP 

30000 

CH \ 

13 

EJ 

ZA4 

CG14 J 

14 

SP 

CG12 

0 

15 

LQ 

Q 

17 

16 

SS 

Q 

0 

17 

SA 

ZZ7 

0 

20 

TU 

A 

CG23 

21 

TU 

A 

CH10 

22 

TP 

ZZ5 

Q ^ 

23 

SP 

[30000] 

° 1 

24 

QT 

A 

A 

25 

EJ 

ZZ41 

CH J 

26 

MJ 

0 

CH5 


CA 

CG27 



IA 

CH 


0 

IJ 

2Z120 

CH3 

1 

RA 

ZZ104 

ZZ25 

2 

MJ 

0 

CF15 

3 

RA 

ZZ72 

ZZ32 

4 

MJ 

0 

CG 

5 

SP 

ZZ72 

0 1 

6 

SA 

ZZ26 

0 f 

7 

TV 

A 

CH10 

10 

TV 

[30000] 

0 

0 

0 

11 

TV 

CH10 

CH13 

12 

TP 

ZZ3 

Q 

13 

QS 

ZZ104 

[30000] 

14 

TV 

CH13 

CH16 

15 

TP 

ZZ5 

Q 

16 

QS 

ZZ41 

[30000] 


Transfer Op File III for 
this seg. from M.D. to H.S.S. 
Set up j n at CG12 

Set up j n at CF33 


Mask Op- 
Dir. 4- 




►A, 


Dir. 4 + 1—>A 


J 


Pick up Op por¬ 
tion of word 
given by address 
at Dir. 4 + 1 
14' flag 


Test Op portion for 
Set j of RP to 2 

Obtain CW given by address in Dir. 4 

Test this segment Op File III 

for this CW 

jn—>A U 

jn - r— >Q {/ 

jn-(jn-r) = + r—»A U 
Add fixed address of Op File III 


Test for flagged CW in segment P 

Jump to (Q) 

Jump to 43) 


Test that all Directory 4 checked 
against this segment 
P + l u —>P 
Jump to—>(l^ 

Dir. 4 -I- 2—»Dir. 4 
Jump to— 

Set v-portion CHiq to address 
given by Dir. 4 + 1 
Record running address for this 
CW at Dir. 4 +• 1 


Mask —> Q .j- 

Record P x 2 i0 in Dir. 4 (segment to) 


Mask Op 


Insert "14" in Op of 
address given by ad¬ 
dress at Dir. 4 4-1 
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17 

IJ 

ZZ121 

CH 

Test index 2 that all items Direc- 





tory 4 processed 

20 

MJ 

0 

CH21 


21 

TP 

ZZ17 

ZZ72 

Set Dir. 4 to fixed address 

22 

TP 

ZZ107 

ZZ161^ 

^ Set Index 1^ to M 

23 

MJ 

0 

CH24 J 

24 

TP 

ZZ25 

ZZ104 

1—^P, set to 1 

25 

TP 

ZZ10 

ZZ63 

26 

TP 

ZZ133 

ZZ64\ 


27 

TP 

ZZ134 

ZZ65 

Set Temps 1, 3, 4 t 5 & 6 to 




1 

S rhimmv i nctriipti fine 

30 

TP 

ZZ133 

ZZ66 


31 

TP 

ZZ134 

ZZ67 J 


32 

MJ 

0 

Cl 

Jump to-> Q/7) 


CA 

CH33 




IA 

Cl 



0 

SP 

ZZ20 

17 

L0CD3—>A U 

1 

SA 

ZZ104 

0 

A +■ P— >A ; Transfer u-portion 

2 

SS 

ZZ25 

0 

of P 1 ^ word of Directory 3 to 

3 

TU 

A 

CI5 

the u-portion of the transfer 

4 

TU 

A 

CI6 

command in CII6 and set n 

5 

TU 

[30000] 

CI16 

of the RP commands at CII5 

6 

SP 

[30000] 

17 

A u = # words in Op File III this seg 

7 

TU 

A 

CK7 

Set # words for 77- data search 

10 

TU 

A 

ZZI17 

Save # words in working Temp 

11 

TU 

A 

CJ5 


12 

SA 

ZZ34 

0 

4- 4 

13 

SA 

ZZ37 

0 

+ J = 3 

14 

TU 

A 

CI15 


15 

RP 

[30000] 

CI32 1 

i Build Op File III image 

16 

TP 

T30000l 

FA J 

r 

0^-> K 

17 

TP 

ZZ31 

ZZ103 

20 

IJ 

ZZ161 

CI22 

Index 1/} set initially to M 

21 

MJ 

0 

CJ 

Jump to CONN 19 

22 

SP 

ZZ72 

17 

Dir. 4 — ^ Ay 

23 

TU 

A 

CJ4 

Set address of Directory 4 item 

24 

SA 

ZZ25 

0 

plus one 

25 

TU 

A 

Cl 30 1 

1 Set address of word 2 of Directory 

> 4 item 

26 

TU 

A 

CJ24 

1 

27 

TP 

ZZ4 

Q 

| Mask 'segment from number into 

l K (26-21) 

30 

QT 

[30000] 

ZZ103 

1 ~ 

31 

MJ 

0 

CJ 

Jump to ^9) 

on 

OC 

RA 

CJ5 

ZZ36 

4- i = 9 
■ j - - 

33 

MJ 

0 

CI17 



CA 

CI34 
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0 

IA 

SP 

CJ 

ZZ104 

6 

P->A ^ 

1 

EJ 

ZZ103 

CJ3 

If P = K, go to(20) (OOPOO = OOKOO) 

2 

MJ 

0 

CJ27 


3 

TP 

C022 

ZZ162 

Reset value to 171 for region CM 

4 

SP 

[30000] 

0 

Jump call word to A 

5 

RP 

[30000] 

CJ7 \ 

Locate this call word in Op File III 

6 

EJ 

ZA4 

CJ10 J 

for segment P 

7 

MJ 

0 

BR6 

Alarm 6 

10 

SP 

CJ5 

0 

jn-»(A R ) u 

11 

LQ 

Q 

17 

jn - r—>Q U 

12 

SS 

Q 

0 

r ->(Ar) u 

13 

SA 

ZZ7 

0 

Finds address of 2nd word Op File III 

14 

TU 

A 

CJ16 *\ 

item 

15 

TP 

ZZ5 

Q j 

Test if CW flagged in this segment. 

► 

16 

SP 

[30000| 

0 

17 

QT 

A 

A 


20 

EJ 

ZZ41 

CJ22/ 


21 

MJ 

0 

BR6 

Alarm 6 

22 

LQ 

CJ16 

Q25 


23 

TV 

Q 

CJ24 

1 Replace Op File III word by second 

24 

TP 

[30000] 

30000 

> word of Directory 4 item. 

25 

RA 

ZZ72 

ZZ32 

Dir. 4 + 2—>Dir. 4 

26 

MJ 

0 

CI17 

Jump to (£§) 

27 

RA 

FA5 

ZZ26 

Add 1 to H.S.S. of first "IP" 

30 

RA 

ZZ161 

ZZ26 

Add 1 to index 1^ 

31 

MJ 

0 

CK 

Jump to @ 

0 

CA 

IA 

TP 

CJ32 

CK 

ZZ11 

ZZ74 1 

i Initialize Alpha and Beta 

1 

TP 

ZZ12 

ZZ75 J 

1 (next address in Preface or Term.) 

2 

RA 

CK7 

ZZ36 v 


3 

SP 

FA2 

0 1 

I 

4 

AT 

12 

ZZ113 

> Set "D" for Preface area 

5 

TP 

A 

ZZ141 ; 

I and Temp D = # words = (S+R+2)+L ( ) R 

6 

SP 

ZZ153 

0 

76777—>A U ^ 

7 

RP 

[30000] 

CK24 

—> f search for 

10 

TJ 

[FA4] 

CKll 

J data CW 

11 

SN 

Q 

17 

- jn f r—»A U | 

12 

SA 

CK7 

0 

+■ jn > calculate # 

13 

TU 

A 

ZZ115 

r—>WSi J repeats 

14 

RS 

CK7 

ZZ115' 

i Set to continue search 

15 

RA 

CK10 

ZZ115 

f 

16 

TU 

A 

CL 


17 

TU 

A 

CK22\ 


20 

RS 

CK22 

ZZ25 1 

Test if above TJ command 

21 

SP 

ZZ41 

0 I 

reacted on a "14" in the Op code 

22 

TJ 

30000 

CK6 J 


23 

MJ 

0 

CL 
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24 

TU 

ZZ7 

CKIO 

Reset (TJ FA4 CKll) 

25 

MJ 

0 

CP 



CA 

CK26 




on exit 



Stores Information Necessary In Building Termination and Preface 



IA 

CL 



0 

SP 

[30000] 

0 

2nd word of 77-data item—>A 

1 

MJ 

0 

CX2 


2 

TV 

A 

ZZ137 

H.S.S. address—>Temp B ir 

3 

RS 

CL 

ZZ25 

V 

4 

TU 

CL 

CL5 


5 

SP 

[30000] 

0 

CW—>A U 

6 

TP 

ZZ6 

Q 

L(00777) U ~>Q 

7 

QT 

A 

A 1 

Mask and multiply by 2 

10 

LA 

A 

1 J 

t 

11 

AT 

ZZ143 

ZZ140 

MD address of array—»Temp C u 

12 

MJ 

0 

CM 


CA 

CL13 




IA 

CM 



0 

TU 

ZZ136 

ZZ64 ^ 

Set up RP command for Preface 

r 

1 

RA 

ZZ64 

ZZ37 J 

2 

TU 

ZZ64 

ZZ66 

Set up RP command for Term. 

3 

TV 

ZZ137 

ZZ65 

Set data H.S.S. address for Preface 

4 

SP 

ZZ140 

0 1 


5 

TU 

A 

CM6 1 

> Set up address of array on MD 

6 

TU 

[30000] 

ZZ65 J 

7 

TU 

A 

CM 10 \ 


10 

SP 

[30000] 

0 1 

l Set up address of array on MD 

11 

LT 

25 

A 

[ for Term. 

12 

TV 

A 

ZZ67 J 

! 

13 

SP 

ZZ137 

17 1 

1 Set data H.S.S. address for Term. 

14 

TU 

A 

ZZ67 , 

f 

15 

SP 

ZZ74 

0 

1 Calculate * words in Preface 

16 

SS 

ZZ11 

0 

r 

17 

TJ 

ZZ162 

CM2 3 

Test * words < 170 

20 

RA 

ZZ162 

ZZ146 

Increment by 170 

21 

MJ 

0 

CM2 2 


22 

TP 

C021 

ZZ147 


23 

RJ 

CM2 3 

CM31 

1 shot switch 

24 

TV 

ZZ113 

ZZ64 


25 

RA 

ZZ113 

ZZ32 

D 4- 2-> D 1 W 

26 

RA 

ZZ147 

ZZ32 

1 0f 

27 

TV 

ZZ147 

ZZ66 

TE 4- 2 TE J RP 

30 

MJ 

0 

CN 


31 

SP 

ZZ37 



32 

LT 

25 

A 1 

i 

Send (30000) y to first Preface 
[ RP W command 

33 

TV 

A 

ZZ64 v 

34 

MJ 

0 

CM2 6 



CA 

CM35 
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IA 

GN 



0 

TV 

ZZ74 

CN6 


1 

RA 

ZZ74 

ZZ26 


2 

TV 

ZZ74 

CN7 

> Set up transfer commands (i.e. T fill 

in v-addresses) 

3 

TV 

ZZ75 

CN10 


4 

RA 

ZZ75 

ZZ26 


5 

TV 

ZZ75 

CN11 > 


6 

TP 

ZZ64 

[300001 > 

i 

7 

TP 

ZZ65 

[30000] 

l Transfer RP - TP setup 

10 

TP 

ZZ66 

[30000] 

| to proper location in buffer 

11 

TP 

ZZ67 

[30000] > 

area 

12 

RA 

ZZ74 

ZZ26 1 

i Update available locations 

13 

RA 

ZZ75 

ZZ26 J 

1 in buffer area 

14 

MJ 

0 

CK6 

Jump to continue searching list 


CA 

CN15 
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Setup *'W" of RP - Commands for Exit of Termination 



IA 

CP 



0 

TV 

ZZ152 

CM2 3 

Reset 1 shot switch 

1 

RS 

ZZ75 

ZZ32 ] 


2 

TV 

ZZ75 

CP3 

► Insert "CT16" in W of last 

3 

TV 

ZZ151 

[30000] 

RP command in Termination 

4 

SP 

ZZ74 

0 J 

ALPHA—] #■ of entries in Pref- 





? ace area—»A 

5 

ST 

ZZ11 

A 

J 

6 

TJ 

CE2 

BK 

Test A £ 170. 

7 

DV 

ZZ146 

ZZ120 

i.e.A > 170 indicates more than 

10 

MJ 

0 

CPU 

one block needed. Dividing 

11 

ZJ 

CP 13 

CP 12 

# of entries by (170 )q gives 

12 

RS 

ZZ120 

ZZ26 

* of blocks needed. A = 0 

13 

SP 

ZZ12 

0 

indicates an integral 

14 

SA 

ZZ163 

0 

number of blocks needed. 

15 

TV 

A 

CP20 

A = * of blocks needed -1 

16 

IJ 

ZZ120 

CP20 

if Q 0 or * blocks if Q = 0. 

17 

MJ 

0 

BK 

Set index 1 to A and let 

20 

TV 

ZZ150 

[30000] 

the index control the number 

21 

RA 

CP20 

ZZ146 

of times (CT13) is inserted 

22 

MJ 

0 

CP16 



CA 

CP23 





Preparation for Writing Onto Tape 


IA 

BK 



0 

RJ 

BK 

BK2 


1 

MJ 

0 

CQ 


2 

TP 

14 

Q > 

i 

3 

QT 

ZZ2 

ZZ157 

Sum number of blocks already written 

4 

LQ 

Q 

17 

> 

5 

QT 

BKll 

A 


6 

AT 

ZZ157 

ZZ157 > 


7 

TP 

ZZ157 

ZZ160 

Save # blocks already written 

10 

MJ 

0 

CQ 


11 

0 

0 

77 



CA 

BK12 
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Write Op File III Onto Tape ff 5 


IA 

CQ 



RP 

10170 

CQ2 ' 

\ Fill TI with Z*s 

TP 

ZZ51 

TI 

i 

RA 

ZZ157 

ZZ26 ^ 

| Test for exceeding tape length 

TJ 

TL 

CQ5 

> 

RJ 

ZY 

ZY1 

1 

TP 

ZZ154 

TI 1 

i F I L E A 3 

TP 

ZZ155 

Til . 

J S E G AAA 

n n 

nx 

OAAA a 

OUUU4 

n r\i i 'i 

i n „ _ j a - J „ 

I aGdu uxai wujluo 

TP 

ZA 

TI2 . 

f of Op File III image—> Tape image 

SP 

ZZ74 

0 

n (ALPHA-LOCPRE) = # words 

SS 

ZZll 

17 

\ 

TP 

A 

TI6 

[ Calculate # words in Preface 

LT 

25 

ZZ142 

J —» save in (TEMPE) v 

TP 

ZZ53 

GT3 \ 

Write first block on tape 

RJ 

GT2 

GT J 

LQ 

ZZ117 

25 ] 


TP 

ZZ2 

Q \ 

Calculate # words in Op File III 

QT 

ZZ117 

A J 

this seg. 

DV 

ZZ30 

ZZ121 

Record full blocks required into 
Index 2 

LT 

10017 

ZZ112 

Shift remainder—>R U 

TO 

ZZ7 

CQ33 

LOC Op File® 

IJ 

ZZ121 

CQ27 

Have all full blocks been written? 

MJ 

0 

CQ37 

—>Jump —>(3j 

RA 

ZZ157 

ZZ261 

1 

TJ 

TL 

CQ32 

? Test for exceeding tape length 

RJ 

ZY 

ZYl 

1 

RP 

30170 

CQ34" 

i Transfer 120 words from File III 

TP 

[30000] 

TI 

f image into TI 

RJ 

GT2 

GT 

Write 1 full block on tape 

RA 

CQ33 

ZZ27 

Advance Op File III image address 

MJ 

0 

CQ25 

—>Jump — 

MJ 

0 

CQ62 

TJ 

TL 

CQ42 1 ) 

Test for exceeding length 

RJ 

ZY 

ZYl J 

i of tape 

RP 

10170 

CQ44"| 

Fill TI with Z*s 

TP 

ZZ51 

TI J 

> 

i 

TO 

ZZH2 

CQ47 

Set N of RP command 

RA 

CQ47 

ZZ37 

3 in j 

TO 

CQ33 

CQ50 

Set "u" of transfer command 

RP 

[30000] 

CQ5l1 

^ Transfer partial block to TI 

TP 

[30000] 

TI J 

RJ 

GT2 

GT 

Write partial block 

RA 

ZZ157 

ZZ26 1 


TJ 

TL 

CQ55 

> Test exceeding length of tape 

RJ 

ZY 

ZYl J 


RP 

10170 

CQ57 'i 

i Fill with Z*s 

TP 

ZZ51 

TI J 

\ 
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57 

TP 

ZZ47 

TI 

END 

0 F 


60 

RJ 

GT2 

GT 




61 

MJ 

0 

CR 




62 

TP 

ZZ112 

A 1 

Handles 

special case 

where 

63 

ZJ 

CQ64 

CQ52 J 

0 mod 

170 words are 

written. 

64 

RA 

ZZ157 

ZZ26 




65 

MJ 

0 

CQ40 





CA 

CQ66 






Write Preface for This Seg. Onto Tape #5 


0 

IA 

RP 

CR 

10170 

CR2 \ 

Fill TI with Z* s 

1 

TP 

ZZ51 

TI J 


2 

SP 

ZZ142 

0 

* words in Preface —>A U 

3 

ZJ 

CR36 

CT 

\ # full blocks 

4 

TP 

Q 

ZZ122 

/ —> Index 1 ; TEMPT 

5 

LT 

10017 

ZZ112 

* words in partial block 

6 

SP 

ZZ11 

17 1 

Set up u of transfer commam 

7 

TU 

A 

CR16J 

► 

i 

10 

IJ 

ZZ120 

CR12 

Have all full blocks been w: 

11 

MJ 

0 

CR40 


12 

RA 

2Z157 

ZZ261 

1 

13 

TJ 

TL 

CR15 | 

> Test for exceeding length 

14 

RJ 

ZY 

ZY1 , 

| of tape 

15 

RP 

30170 

CR171 

i Transfer 1 full block 

16 

TP 

[30000] 

TI J 

1 into TI 

17 

RJ 

GT2 

GT 

Write 1 full block onto tapi 

20 

RA 

CR16 

ZZ27 

Advance u-address by (120)^ 

21 

MJ 

0 

CR10 

22 

RA 

ZZ157 

ZZ26] 

i 

23 

TJ 

TL 

CR25 

> Test exceeding block length 

24 

RJ 

ZY 

ZYl , 

1 

25 

RP 

10170 

CR27Y 

Fill TI with Z’s 

1 

26 

TP 

ZZ51 

TI j 


27 

TU 

ZZ112 

CR32 ' 

\ Set up RP command to 

30 

RA 

CR32 

ZZ37 

) # of words in partial block 

31 

TU 

CR16 

CR33 

Set up TP command 

32 

RP 

[30000] 

CR34' 

1 Read partial block into TI 

33 

TP 

[30000] 

TI 

f 

Write 1 block onto tape #5 

34 

RJ 

GT2 

GT 

35 

MJ 

0 

CS 


36 

DV 

ZZ30 

ZZ120 

37 

MJ 

0 

CR4 


40 

TP 

ZZ112 

A 


41 

ZJ 

CR22 

CS 



CA 

CR42 
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Write Termination For This Seg. Onto Tape #5 



IA 

CS 



0 

TP 

ZZ122 

ZZ120 

Set up Index 1 = # full blocks to 





be written 

1 

SP 

ZZ12 

17 \ 

Set up "u" of TP command 

2 

TU 

A 

CSll J 


3 

IJ 

ZZ120 

CS5 


4 

MJ 

0 

CS31 

Jump to write partial block 

5 

RA 

ZZ157 

ZZ26 1 


6 

TJ 

TL 

CSlO > 

Test for exceeding length of tape 

7 

RJ 

ZY 

ZYl J 


10 

RP 

30170 

CS12\ 

Read 1 block into TI 

11 

TP 

[30000] 

TI J 


12 

RJ 

GT2 

GT 

Write 1 block onto tape #5 

13 

RA 

CSll 

ZZ27 

Increase address of TP command 

14 

MJ 

0 

CS3 


15 

RA 

ZZ157 

ZZ261 


16 

TJ 

TL 

CS20 > 

Test for exceeding length of 

17 

RJ 

ZY 

ZYl J 

block 

20 

RP 

10170 

CS22 \ 

Fill TI with Z*s 

21 

TP 

ZZ51 

TI J 


22 

TO 

ZZ112 

CS25 


23 

RA 

CS25 

ZZ37 > 

Setup RP - TP commands 

24 

TO 

CSll 

CS26 J 


25 

RP 

[30000] 

CS27\ 

Read partial block into TI 

26 

TP 

[30000] 

TI j 


27 

RJ 

GT2 

GT 

Write 1 block 

30 

MJ 

0 

CT 


31 

TP 

ZZ112 

A \ 

Test for 0 mod 170 entries 

32 

ZJ 

CS15 

CT J 



CA 

CS33 




IA 

CT 



0 

RA 

ZZ104 

ZZ25 

Advance P by 1 

1 

SP 

ZZ105 

0 

\ C + 1—»A 

2 

SA 

ZZ25 

0 

J 

3 

EJ 

ZZ104 

C06 

Then-»CT5 

4 

MJ 

0 

C04 

Then j ump to (0 

5 

SP 

ZZ157 

0 


6 

SS 

ZZ160 

25 


7 

TP 

A 

CT14 


10 

RA 

CT15 

CT14 


11 

TP 

CT15 

GT3 


12 

RJ 

GT2 

GT 


13 

MJ 

0 

77010 

Exit allocation phase 

14 

0 

0 

0 

Parameter for repositioning tape 

15 

40 

5 

0 



CA 

CT16 
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IA CO 


20 k 
20 1 
GT3 f 
CAl J 
ZZ1471 
Cl J 
ZZ26 > \ 
COll 
ZYl 
C013 
TI 
GT 
COll 
C06 
GT 
CT5 
C016 
610 
171 


> 


J 


Add TN to code word 
for tape handler 

Reset initialization value 
for termination, then—>(l 


Write double block of Z*s 


Mask for 
on tape 


0 

RA 

ZZ52 

1 

RA 

ZZ102 

2 

TP 

ZZ52 

3 

MJ 

0 

4 

TP 

C021 

5 

MJ 

0 

6 

RA 

ZZ157 

7 

TJ 

TL 

10 

RJ 

ZY 

11 

RP 

10170 

12 

TP 

ZZ51 

13 

RJ 

GT2 

14 

TV 

C020 

15 

MJ 

0 

16 

RJ 

GT2 

17 

MJ 

0 

20 

0 

0 

21 

0 

0 

22 

0 

0 


CA 

C023 


IA 

ZW 

0 

MJ 

0 

1 

TP 

ZW16 

2 

RJ 

UP2 

3 

MJ 

0 

4 

52 

54512 

5 

47 

01665 

6 

46 

51503 

7 

01 

27546 

10 

65 

66515 

11 

30 

01307 

12 

30 

27302 

13 

73 

01244 

14 

26 

24663 

15 

01 

31344 

16 

0 

ZW4 


CA 

ZW17 


BQ6 

UP3 

UP 

zw 

54630 PRO 

15101 MAT 

22201 LON 

74701 ADR 

42432 S T 0 

22630 E A E 

70125 E D E 

64651 Y A A 

45150 CAT 

63022 A F I 

12 


counting blocks written 


B L E 
0 0 A 
G . A 
U M A 
RAG 
X C E 
DAB 
L L 0 
ION 
L E . 
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Print Error Warning of Exceeding Length of Tape 



IA 

ZY 








0 

MJ 

0 

[30000] 







1 

RJ 

ZYl 

ZY3 

One shot 

switch 

2 

MJ 

0 

ZY 







3 

TP 

ZY27 

DP3 







4 

RJ 

UP2 

DP 







5 

MJ 

0 

ZY 







6 

71 

24545 

03450 

W 

A 

R 

N 

I 

N 

7 

32 

22m n 

16750 

G 

e 

A 

A 

D 

N 

10 

34 

65305 

47051 

I 

S 

E 

R 

V 

0 

11 

01 

10012 

72466 

A 

5 

A 

D 

A 

T 

12 

24 

01713 

44646 

A 

A 

W 

I 

L 

L 

13 

01 

30722 

63030 

A 

E 

X 

C 

E 

E 

14 

27 

01051 

00303 

D 

A 

2 

5 

0 

0 

15 

01 

25465 

12645 

A 

B 

L 

0 

C 

K 

16 

65 

22010 

12466 

S 


A 

A 

A 

T 

17 

66 

30475 

26601 

T 

E 

M 

P 

T 

A 

20 

25 

30345 

03201 

B 

E 

I 

N 

G 

A 

21 

47 

24273 

00166 

M 

A 

D 

E 

A 

T 

22 

51 

01010 

10101 

0 

A 

A 

A 

A 

A 

23 

01 

01265 

15066 

A 

A 

C 

0 

N 

T 

24 

34 

50673 

00126 

I 

N 

D 

E 

A 

C 

25 

51 

47523 

44624 

0 

M 

P 

I 

L 

A 

26 

66 

34515 

02277 

T 

I 

0 

N 

9 

77 

27 

0 

ZY6 

21 








CA 

ZY30 
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0 

IA 

TU 

CX 

A 

ZZ136\ 

Exit to main program 

1 

MJ 

0 

CL2 j 


2 

TJ 

CZ 

CX 

Test * lines > 7777 

3 

TP 

A 

CZ6 
ZZ25 | 

Save information 

4 

RS 

CL 


5 

TO 

CL 

CX6 ; 


6 

SP 

30000 

o 


7 

TP 

ZZ6 

Q 

► Compute address which 

10 

QT 

A 

A 

contains address where S. S. 

11 

LA 

A 

1 

data is stored on drum 

12 

AT 

ZZ143 

ZZ140 


13 

TV 

CZ6 

ZZ137 

Core address of beginning of array 

14 

TU 

CZ3 

ZZ136 

* words set to 7777 

15 

RJ 

CN14 

CM 

Build Preface and Terra. 

16 

RS 

CZ6 

CZ3 

Reduce number of words by 7777 

17 

TJ 

CZ 

CX27 

1 core < lines < 2 cores 

20 

TJ 

CZ2 

CX22 

2 core < # lines < 3 cores 

21 

MJ 

0 

CX22 


22 

TO 

CZ3 

ZZ136 


23 

RA 

ZZ137 

CZ4 


24 

RJ 

CX35 

CX36 

Update MD address 

25 

RJ 

CN14 

CM 

Process Preface and Term. 

26 

RS 

CZ6 

CZ3 ^ 


27 

TO 

CZ6 

ZZ1361 

> Update H.S.S. address 

30 

LQ 

CZ6 

25 

31 

RA 

ZZ137 

CZ4 


32 

RJ 

CX35 

CX36 

Update MD address 

33 

TP 

CX45 

CN14 

Reset Exit in main program 

34 

MJ 

0 

CM 


35 

MJ 

0 

30000^1 


36 

TU 

ZZ140 

CX37 

y Routine for updating MD address 

37 

TO 

30000 

CX44 


40 

RA 

CX44 

CZ3 


41 

TO 

CX43 

ZZ140 


42 

MJ 

0 

CX35 


43 

0 

CX44 

0 


44 

0 

0 

0 


45 

MJ 

0 

CK6 



CA 

CX46 




1600 



IA CZ 


0 0 10000 0 

1 0 17777 0 

2 0 27776 0 

3 0 7777 0 

4 0 0 7777 

5 0 17776 0 

6 0 0 0 Temp 

CA CZ7 
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IA 

zz 



0 

MJ 

0 

CB 


1 

MJ 

0 

CF7 


2 

0 

0 

77777 


3 

00 

00077 

0 


4 

0 

7700 

0 


5 

77 

0 

0 


6 

0 

00777 

0 


7 

0 

ZA4 

0 

L0C77 

10 

0 

0 

0 

LOCPRE 

11 

0 

0 

ZF 

LOCTER 

12 

0 

0 

ZG 

L0CD5 

13 

0 

0 

0 

LOCFCA 

14 

0 

0 

0 

LOCBA 

15 

0 

0 

0 

DLOCF3 

16 

0 

0 

zc 

L0CD4 

17 

0 

0 

ZD 

L0CD3 

20 

0 

0 

ZB 

L0C2A 

21 

0 

0 

ZA6 

L0C2B 

22 

0 

0 

ZE 

LOCCSA 

23 

0 

0 

0 

LOCCTA 

24 

0 

0 

0 


25 

0 

1 

0 


26 

0 

0 

1 


27 

0 

170 

0 


30 

0 

0 

170 

ZERO 

31 

0 

0 

0 


32 

0 

0 

2 


33 

0 

2 

0 


34 

0 

4 

0 


35 

0 

0 

4 


36 

0 

20000 

0 


37 

0 

30000 

0 

CONST 

40 

0 

0 

0 

FLAG 

41 

14 

0 

0 

DATA 

42 

0 

0 

0 


43 

31 

34463 

00101 


44 

66 

71510 

10101 


45 

66 

71510 

12401 


46 

66 

71510 

12501 


47 

30 

50270 

15131 


50 

01 

30506 

65473 


51 

74 

74747 

47474 


52 

50 

00103 

TI 


53 

71 

00105 

TI 


54 

0 

0 

0 


55 

0 

0 

0 


56 

0 

0 

0 

N 

57 

0 

0 

[30000] 

MINUS 

60 

0 

0 

0 


MJ 0 CONN A1 

MJ 0 CONN A2 

Jump "to” mask 
Jump "from" mask 


Fixed address of start of Op File HI 
Fixed drum address for starting 77 
data 

Fixed address for Preface 
Fixed address for Termination 


Fixed drum address for Op File HI 
Fixed address of Directory 4 
Fixed address of Directory 3 
Fixed address Op File Ila (H.S.S.) 
Fixed address (by segment) Op File lib 


F I L E A A 

T W 0 A A A 

T W 0 A AA 

T W 0 A B A 

E N D A 0 F 

z z z z z z 

GT code word to read Op File Ila 


Length of control (also initial 
address of S) 
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ENDBUF 

61 

0 

0 

0 

TEMPI 

62 

0 

0 

0 

2 

63 

0 

0 

0 

3 

64 

0 

0 

0 

4 

65 

0 

0 

0 

5 

66 

0 

0 

0 

6 

67 

0 

0 

0 

7 

70 

0 

0 

0 


71 

0 

0 

0 


72 

0 

0 

0 


73 

0 

0 

0 

ALPHA 

74 

0 

0 

0 

BETA 

75 

0 

0 

0 

AJ 

76 

0 

0 

0 

BI 

77 

0 

0 

0 

AJTEST 

100 

0 

0 

0 

BITEST 

101 

0 

0 

0 

GENCOD 

102 

50 

00103 

[30000] 

K 

103 

0 

0 

0 

P 

104 

0 

0 

0 

C 

105 

0 

0 

0 

G 

106 

0 

0 

0 

M 

107 

0 

0 

0 

L 

110 

0 

0 

0 

1 

111 

0 

0 

0 

R 

112 

0 

0 

0 

D 

113 

0 

0 

0 

S 

114 

0 

0 

0 

WS1 

115 

0 

0 

0 

WS2 

116 

0 

0 

0 

WS3 

117 

0 

0 

0 

INDEX1 

120 

0 

0 

0 

INDEX2 

121 

0 

0 

0 

TEMPT 

122 

0 

0 

0 


123 

0 

0 

3 


124 

0 

0 

26 


125 

0 

0 

27 


126 

0 

0 

77 


127 

0 

0 

25 


130 

0 

0 

24 


131 

0 

0 

22 


132 

0 

0 

5 


133 

75 

0 

0 


134 

11 

0 

0 


135 

0 

20002 

0 

TEMPA 

136 

0 

0 

0 

TEMPB 

137 

0 

0 

0 


Dir. 3 - next open address of 
Directory 3 

Dir. 4 - next open address of 
Directory 4 
Not used 

Next open address in Preface 
Next open address in Termination 
Address next Op File Ha item. 
Address next Op File Hb item. 


Count of Directory 4 items 


Next address to assign to routines 
Next address to assign data 
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TEMPO 

140 

0 

0 

0 


TEMPD 

141 

0 

0 

0 


TEMPE 

142 

0 

0 

0 



143 

0 

40101 

0 



144 

0 

0 

165 



145 

0 

0 

167 



146 

0 

0 

170 


TE 

147 

0 

0 

610 


CT13 

150 

0 

0 

C013 


CT16 

151 

0 

0 

CD16 



152 

0 

0 

CM31 

For resetting 1 shot switch 


153 

0 

76777 

0 



154 

31 

34463 

00106 

F T L E A 3 


155 

01 

01653 

03201 

A A s E G A 


156 

0 

0 

TL 


TEMPBKCTR1157 

0 

0 

0 


TEMPBKCTR 

160 

0 

0 

0 

# blocks already written 

INDEX1A 161 

0 

0 

0 



162 

0 

0 

170 



163 

0 

0 

166 




CA 

ZZ164 
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3. INITIALIZATION GENERATOR 




3. Initialization Generator 


Initialization Generation Setup 

The Setup Routine for Initialization Generation reads the original 
Dimension List and the Constant Pool from magnetic tape and stores them on 
the drum. These lists do not overlay the modified Dimension List that was 
built by the Allocator Setup Routine since it will be used by the Processing 
Phase later. 

The counters at locations 00006 and 00015 are interchanged so that 
00006 becomes the Dimension List counter for this phase. 

After reading the Dimension List and Constant Pool the tape is 
repositioned to the beginning of Op File III. The 14 blocks of the Initial¬ 
ization Generation Phase are then read from the UNICODE master tape and con¬ 
trol is transferred to it. 


1607 



1608 



Save number of 
blocks of: 
Constant Pool 
Dimension List 
Symbol List 


Calculate number of 
blocks to move back¬ 
ward to beginning of 
Dimension List.Tape 
positioned at begin¬ 
ning of Op. File III 


'_TH \ 

move/- 

ybacy 


Interchange contents / \ 

of locations 00006 - A ZZ16 ) 

and 00015 V S 



f Is there a Di 
mension List? 


no 

Yes,/ Read 
label 
block, 




Set up tape handler 

code word to read 
Dimension List to 
buffer 




Is tape 
label correct?) NO 




Enter BR routine 


Alarm 10 compiler 


Inconsistency 

Tape 5 positioned 


incorrectly 



Change all references 
in ZZ16 routine so 
that Constant Pool 
replaces Dimension 
List change ©con¬ 
nectors to © 



Set tape handler 
parameter to re¬ 
position tape at 
beginning of Op. 
File III 



|Read Initial¬ 
ization Gen¬ 
eration Phase 
from master 
tape 



Initialization Generation Set-Up Flow Chart 













Regions for Initialization Generation Setup 


RE 

ZZ7230 

(37) 

RE 

ZW7267 

(15) 

RE 

ZX7304 

(14) 

RE 

ZT7320 

( 3) 

RE 

TH21 

Tape handler 

RE 

BR537 

Compiler Inconsistency Routine 

RE 

DL42102 

(6000) Dimension List 

RE 

CL50102 

(10001 Constant Pool 

PC* 

UJLi 

7V7nr» 

Mi. 1 VV 

RirP ■Pa'i* 

J-MAX X 

RE 

IG2000 

Loading and entry address for IG 

RE 

IL1600 

16q = # blocks of Initialization 


Generation phase 
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Initialization Generation Setup Routine 


0 

IA 

SP 

ZZ 

14 

0 


1 

LT 

3 

ZT 

Save # blocks of Constant Pool 

2 

SP 

A 

0 


3 

LT 

6 

ZT1 

Save # blocks of Dimension List 

4 

SP 

A 

0 


5 

LT 

6 

ZT2 

Save * blocks of Symbol List 

6 

SP 

ZT 



7 

SA 

ZT1 

0 1 


10 

SA 

ZT2 

25 

> Calculate and move # blocks backward 

11 

AT 

ZX7 

TH3 

to beginning of Dimension List 

12 

RJ 

TH2 

TH J 

(if any) 

13 

TP 

15 

Q "t 


14 

TP 

6 

15 

► Interchange contents of 6 and 15 

15 

TP 

Q 

6 J 


16 

SP 

[ZT1 ] 

0 1 

i Is there a Dimension list 

17 

ZJ 

ZZ20 

[zw] j 

1 (Constant Pool)? 

20 

TP 

ZX2 

TH3 ^ 

Read label block to H.S.S. 

21 

RJ 

TH2 

TH J 

► 

22 

SP 

[ZT1] 

0 1 


23 

SS 

zx 

25 

► Set up code word to read Dimension 

24 

AT 

ZX3 

TH3 J 

List (Constant Pool) 

25 

TP 

ZY 

A ' 

\ Check label 

26 

EJ 

[zxio] 

ZZ30 

/ 

27 

MJ 

0 

BR12 


30 

RJ 

TH2 

TH 

Read Dimension List (Constant Pool) 

31 

TP 

ZX4 

TH3 'i 

to H.S.S. 

Move past end label 

32 

RJ 

TH2 

TH j 

r 

33 

TO 

[6 ] 

ZZ35 

\ Set up transfer 

34 

RA 

ZZ35 

ZX1 

; 

35 

RP 

30000 

[ZW] 

) Transfer Dimension List (Constant 

36 

TP 

ZY 

[DL] 

J Pool) to storage area 


CA 

ZZ37 



1610 



Set for reading Constant Pool 


© 

© 



IA 

zw 


0 

TU 

ZZ6 

ZZ16 > 

1 

TU 

ZZ6 

ZZ22 

2 

TV 

ZX12 

ZZ17 

3 

TU 

ZX12 

ZZ26 > 

4 

TU 

ZX13 

ZZ33 

5 

TV 

ZX13 

ZZ36 „ 

6 

RJ 

ZZ35 

ZZ16 

7 

SP 

ZT2 

25 1 

*1 A 

AO* 

7 VC 

TOO \ 

1U 

•HJL 


j-iio r 

11 

RJ 

TH2 

TH j 

12 

TP 

ZX6 

TH3 \ 

13 

RJ 

TH2 

TH J 

14 

MJ 

0 

IG 


CA 

ZW15 



IA 

ZX 


0 

0 

0 

2 

1 

0 

10000 

0 

2 

50 

105 

ZY 

3 

50 

5 

ZY 

4 

30 

105 

0 

5 

30 

5 

0 

6 

50 

ILl 

IG 

7 

40 

5 

0 

10 

27 

34473 

05065 

11 

26 

51506 

56624 

12 

0 

ZX11 

ZW7 

13 

0 

10 

CL 


CA 

ZX14 



Go to read Constant Pool and transfer 
Move forward past Symbol List 


Read Initialization Generation 
to H.S.S. 

Jump into Phase 


Read one block of Uniservo 5 

General Read for Uniservo 5 

Move one block forward 

General move forward 

IL = (# of blocks of Initialization 

Generation)* 100 

General move backward - tape 5 

D I M E N S 

C 0 N S T A 
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Initialization 


It is convenient to divide this write-up into two sections. The first 
describes the initialization phase proper, and the second explains the actual 
generation. The distinction between the two should be kept in mind at all 
times. 

Running Initialization 

There are two classes of operation that may be considered; 

(1) functions always performed, and (2) functions whose operation depends 
upon the circumstances of the particular object program compiled. We may 
tabulate these two classes as follows: 


Functions always performed 

Functions sometimes performed 

1) Rewind program tape 

1) Read in and translate "DATA IN- 

2) Clear 1 core bank to zero 

DEX" from either paper or mag- 

3) Load GTH coding 

netic tape. 

4) Load Control coding 

2) Determine which data tapes are 

5) Load Constant Pool 

required by the program, and 

w 

check that these are mounted in 

and finally, transfer 

Uniservos. 

control to Control coding, 

3) Load values for a certain class 

to pull in Segment 1 

of subscripted variables to their 


appropriate drum area. 


All coding, constants, etc., necessary for all parts of Initialization 
are written on the Object program tape preceding Segment 1 of the generated 
coding. See Page 1617, Layout of Object Program Tape. 
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The coding is entered to H.S.S., and control transferred there at appro¬ 
priate points, by means of the Object Program Loader Routine, which is part of 
the UNICODE Service Library (Sect. IT, 1, c, (2).) The loader performs 
items 1 and 2 in the list above of "functions always performed". From this 
point onward, the loader merely loads data, and transfers control to such 
data as indicated. In other words, computer operations are entirely guided 
by what is present on Object Program Magnetic Tape *1. 

In all problems, the first operation at this point is to load the 
Generalized Tape Handler into the operating locations it will occupy through¬ 
out running of the Object Program. After this, the procedure will vary, de¬ 
pending on the program under consideration. We may discuss the case where 
all possibilities are included, for the sake of completeness, and reference 
to the diagram on page 1617 should make clear which portions are variable. 

From this point initialization may be divided into three sections. 

The first two are optional; the third invariant. 

Section 1. 

This coding is required in one form or another, if, in the compiled pro¬ 
gram, there are any input subscripted variables. These are defined as sub¬ 
scripted variables either referenced by Read sentences, or appearing only 
on the right-hand side of equations. This coding causes a "DATA INDEX" to 
be read in, either from paper tape, or from magnetic tape on Uniservo 2, 
translates it to the form required by the running program, and then performs 
certain checking operations. 

Because Read sentences specify only variables to be read in, and not 
the Oniserm on whiek they ^re to be found, as in the original UNICODE pro¬ 
gram, the DATA INDEX is necessary to supply this information. It informs the 
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computer of the tape on which a given variable is written, its position rel¬ 
ative to other data, and its identifying tape label. This permits data to 
be referenced in the program by one symbol, and labelled on tape by a dif¬ 
ferent name. 

After the index has been set up, the next operation scans the index, 
checking that all variables required by input operations at various stages of 
running are present. While this is being done, a list is built of the Uniser¬ 
vo numbers containing the data required, and the next operation in sequence 
rewinds all these servos, and checks that they do, in fact, hold data tapes. 

Note that checking does not go so far as to check the contents of these data 
tapes. This would be excessively time-consuming, and if a tape is found at 
a later stage which does not contain data that the index says it should, the 
machine will stop, and a correct tape may then be substituted. 

A further operation of this section is to build a list of all input 
variables (see previous definition) not specifically referenced by Read 
sentences. This list, called List B, is for use by Section 2 of Initialization. 
Its format is shown on page 1618* 

When all these operations are satisfactorily completed, control is re¬ 
turned to the loader, which pulls in more tape from Uniservo 1, and acts 
according to the data thereon. This will probably be Section 2 of initial¬ 
ization, described below. 

Section 2, 

This section is needed whenever the "automatic data read-in" facility is 
utilized. It accepts as input LIST B, produced by the preceding section of 
Initialization, which contains the XS3 representations of the variables re¬ 
quired, the number of values of each required (the modulus), and the drum 
addresses pertaining. The conditions under which subscripted variables are 
"automatically" read in are: 
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1) The variable should appear only on the right-hand side of equations. 

2) The variable is not referenced by any Read sentence. 

The number of values specified by the relevant Dimension statement 
are read in. If there are less than this on tape, the computer will indicate 
this and stop. On continuing, the remaining values are filled in with zeros. 

The basic reading is performed by a subroutine essentially identical 
to the Read library subroutine. The annotated coding and flow charts for this 
subroutine begin on page 106 of this manual, and should be consulted for 
further information. 

At the conclusion of operations, control is returned to the UNICODE 
Loader to pull in more tape and perform the remaining functions of Initial¬ 
ization. 

Section 3, 

This includes all the remaining operations of Initialization, which are 
always performed, whatever the nature of the program compiled. They are a 
series of loading operations, followed by a transfer to an IP command which 
causes UNICODE Control to take over and initiate the running of Segment 1. 

The material loaded is listed below in the order of loading. 

1) UNICODE Control 

2) Segment table 

3) IP order 

4) Constant Pool 
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Initialization Generation , 

The generation of Initialization takes place after the Allocation phase. 
The generation itself is relatively simple. First, the leading sentinels and 
the GTH are written on tape. Then some tests are made on the contents of the 
Dimension List to determine which, if any, variables are input variables. 
Depending on the results, values for the I/O fixed locations and such variable 
coding as may be necessary are written on tape, together with LIST A. Finally, 
Control is written, followed by the table of Segment lengths and the Constant 
Pool. The Constant Pool is preceded by an IP order, designed, when operative, 
to pull in Segment 1 and start running. 
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* Indicates those sections which may be absent 


Layout of Object Program Tape 
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LAO 

1 

2 

3 

4 

5 

6 
7 

10 

11 

12 


0 0 0 0 0 | <-n - 

XS-3 representation - 

XS-3 representation - 

Modulus | drum address 

XS-3 representation - 

XS-3 representation - 

modulus | drum address 

XS-3 representation - 

modulus jdrum address 

XS-3 representation - 


Program read variable 
Program read variable 

Variable for automatic 
read in 

Program read variable 
Variable for automatic 
read in 

Variable for automatic 
read in 


etc. 

n = number of items in list. 

(e.g., above case through LAll, n = 6) 

List A format (built by Initialization Generation) 

This list is derived from the Dimension List and includes all subscripted 

variables that are to be read in for a program. 


0 0 0 0 0 | n 

Modulus | Drum address 1 

XS-3 representation -» J 

Modulus j Drum address 1 

XS-3 representation - > J 

Modulus j Drum address 1 

XS-3 representation - > * 


etc. 

n = number of items in list 

(e.g.,above case through LB6 t n = 3) 


1st variable 

2nd variable 
3rd variable 


List B format (built by Initialization, Section 1) 


This list is derived from List A and includes all variables to be automat¬ 


ically read. 
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START 


Rewind ap¬ 
propriate 
servo 
(3 or 6) 


Set basic loading 
add., and word count] 
in 1st word of buf¬ 
fer, fill remainder 
of 1st 3 bkts. with 
Z*s, etc. 


Set subroutine 
to write GTH from 
storage onto tape,| 
via buffer 



,— N Set indie. 

f Aj-^for "Sect.2 
^ NOT wanted" 


Set index l(Box 1) 
to # of 77 type 
CW*s. Initialize 
list A building; 
r —> 0, Box 2 



Box 1 


n4=n -1 

J 




n <0? 


Present 
-H in Dim. 
List? 


YES 


NO 


From next line in 
Dim. List, extract] 
indicator diqit 
"x" 


-W x - o? 


YES 
-> 


So note 
(SECTION 
wanted 


NO 


Alarm 1. 
Compiler In-| 
consistency 


■W*2,500 10 ? 


NO 


Print: ARRAY 
(namej EXCEEDS 

2500 VALUES 


-»jClear A 


STOP 


YES 


0— 


Prepare to 
extract only 
2,500io values 


1 


Extract drum 
address from 
D.L. 



Store in 
list A 



1? 


YESv 


Extract XS3 
name from 


Store in 
List A 


© 


\ _! 


i-^ _ 

_1 

t J 

r + 1 —> r 
(box 2) 


/ 



Set indicator 
for "Section l| 
NOT wanted" 


Box 2 


NO 


Prepare to look 
H for CW 77000+r 


*© 


YES 


© 


Extract modulus 
from "u" field 


© 



A = 0? 


NO 


YES 


© 


Rewind all 
tapes and 
stop 


Increment List 
-HA item count. 


Set indicator fori 
SECTION G> 
REQUIRED 


© 


Initialization Generation Flow Chart 


































Initialization Generation Flow Chart (Cont.) 
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Initialization Generation Flow Chart (Cont.) 


















Regions for Initialization Generation 


RE GI2000 
RE IG2000 
RE IA2354 

RE ID3460 

RE 0N4274 
RE TG4461 


Loading address 

Coding for Initialization Generation 
Stored coding for Section 1 of 
Initialization 

Stored coding for Section 2 of 
Initialization 

Stored coding for Control Section 
Stored coding for Tape Handler 


RE WB5300 
RE FL5470 
RE DL42102 
RE CL50102 
RE ST653 


Output buffer 
List A 

Dimension List 
Constant Pool 
Segment Table 


RE TN20 
RE GH21 
RE UP421 
RE BRSST'j, 
RE RB640 J 


Indicator word for number of Uniservos 
Tape handler for compilation 
Uniprint Routine 

Compiler Inconsistency Routine 


RE HD115 HD f 73 = operating address of 

Object Program Tape Handler 
RE LG400 Length of Tape Handler 

RE FX1000 Fixed I/O locations 


RE 

LI1104 

Length 

RE 

IN2000 

Initial 

RE 

LN614 

Length 

RE 

DD1750 

Initial 

RE 

LC165 

Length 

RE 

LT21 

Length 

RE 

ZA77000 

Service 


of Section 1 

operating address of Section 1 
of Section 2 

operating address of Section 2 
of Control Section 
of Segment Table 

Routine 



Initialization Generation 


IG 


IG 



IA GI 



0 

1 

TP IG304 

RJ IG250 

A 

IG246J 

^ Rewind appropriate servo (3 or 6) 

2 

TP IG327 

WB 

Set 1st word (loading address + W.C. 




for 3 bkts.) 

3 

4 

RP 10023 

TP IG251 

XG5 1 
WB1 J 

\ Fill in rest of 1st bkt. with Z-Z 

5 

6 

RP 30004 

TP IG252 

IG7 1 
WB24 J 

[ UNICODE A OBJECT A PROGRAM A 

"T 

1 

10 

nn i aa a A 

nr 1UU44 

TP IG251 

T f* 1 t > 

X\J! 1 | 

WB30 j 

[■ Fill in 2nd and 3rd bkts. with Z-Z 

11 

TP IG330 

IG230 

Set index to length of (stored) GTH 

12 

TP IG331 

IG232 

Set "Load Add. Temp" store (no word 




count) 

13 

TU IG332 

IG221 

Initialize to start of (stored) GTH 

14 

TP IG265 

IG231 

Set block index to 73 R 

Initialize to WB74 

15 

TV IG307 

IG221 

16 

RJ IG220 

IG217 

Go write GTH 

17 

RJ IG242 

IG233 

Conclude any unfinished block 

20 

TP IG302 

IG353 

Set indicator for "no index" (large 




-fve no.) 

21 

TV IG126 

IG145 

Assume no "Automatic Read" 

22 

TP IG273 

WB 

First CW is 77000 

23 

24 

TP IG262 

TV 6 

WBl 1 
WB1 J 

• Set index to # of 77- type CW's 

25 

TV IG310 

IG107 

Initialize List A building to start 




at FL1 

26 

TP IG262 

FL 

Zeroize List A item counter 

27 

TP IG263 

IG112 

1 —> List A line counter 

30 

TO 6 

IG34 

Set up RP 

31 

IJ WB1 

IG33 


32 

MJ 0 

IG113 

Exit to next section 

33 

TP WB 

A 

CW for extraction —> A 

34 

RP|~0l 

BR1 

Alarm if not present 

35 

EJ DL 

IG36 


36 

SN Q 

17 


37 

SA IG34 

CA GI40 

0 



IA GI40 



40 

SA IG35 

0 


41 

TU A 

IG42 


42 

TP f30000l 

Q 

"X" and mod. line —► Q 

43 

QT IG303 

A 

Inspect all "X" 

44 

ZJ IG70 

IG45 

Auto-read required? 

45 

TV IG311 

IG145 

Yes. So note (—> IG146) 

46 

QT IG301 

WB2 

Extract modulus from u-field 

47 

50 

TJ IG300 

TU IG42 

IG62 

IG52 

Test with 2,501^ 

Too large an array. 

51 

52 

RS IG52 

TP [30000] 

IG275] 

IG314J 

* Go back 2 lines for XS3 rep. 
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IG 


53 

54 

TP IG312 

RJ UP2 

UP3 1 
UP j 

Print-out. 




55 

SP IG262 

0 

Clear A 




56 

MS 0 

IG57 

Alarm stop 




57 

ZJ RB 

IG60 





60 

TP IG310 

Q 

Place 2,500 ^q in Q "u" 
and back. 




61 

MJ 0 

IG46 




62 

63 

TU IG42 

RS IG64 

IG64 1 
IG276J 

► Go back 3 lines for drum 

address 

64 

LQ [3000(3 

Q25 





65 

TV Q 

WB2 

Complete line for List A 




66 

RJ IGlll 

IG106 

Store it (not incrementing 

item count) 

67 

MJ 0 

IG72 





70 

QT IG302 

A 

"X” t* O f so inspect ’’read 

-bit 

If 

71 

ZJ IG72 

IG77 

If no prog, "read-out"? 




72 

RS IG42 

IG275 

Prog. read, relates, so note 

the 




XS3 name 




73 

TU A 

IG74 

(Go back 2 lines for XS3 

name 

) 

74 

TP [3000<3 

WB2 





75 

RJ IGlll 

IG101 

Store in List A (Incrementing 

item 




count) 




76 

TP IG262 

IG353 

Note index wanted (zeroize 

indicator 




register) 




77 

RA WB 

CA GI100 

IG263 

Prepare for next CW 





IA GI100 






100 

MJ 0 

IG31 

And then back. 




101 

RA FL 

IG263 

Increment item count 



102 

TJ IG264 

IG106 

Test with 51 ^q 




103 

TP IG321 

UP 3 




104 

RJ UP2 

UP 





105 

MJ 0 

RB 

To rewind tapes and stop. 


► 

List A 

106 

RA IG112 

IG263 

Increment line counter. 


building 

107 

TP WB2 

[3000(3 




110 

RA IG107 

IG263 

Inc. storing order 




111 

MJ 0 

[30000 

Exit 




112 

[0 30000 

30000 

Line counter 




113 

114 

RP 10167 

TP IG251 

IG115 > 
WB1 „ 

► Fill block with Z-Z 



115 

TP IG333 

WB 

Set loading address (FX), 

but 

no 




word count 




116 

TP 12 

Q 





117 

120 

QT IG274 

ZJ IG121 

A 

IG126, 

[ Is there a List order? 




121 

TP IG334 

WB5 

Yes, set BI 




122 

TU IG307 

WB 

And set word count —> 5 




123 

IJ IG353 

IG131 

Index wanted? 




124 

TP IG335 

WB1 

Yes, set FX 




125 

MJ 0 

IG131 





126 

IJ IG353 

IG155 

No List order, but index 

wanted? 

127 

TP IG336 

WB1 

Yes, set FX 
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IG 


IG 


130 

TU IG274 

WB 

And set word count —^ 1 

131 

RJ IG250 

IG245 

Now write block 

132 

IJ IG353 

IG155 

Index wanted? 

133 

TP IG337 

IG230 

Yes, set in length of Init.Q) 

134 

TP IG340 

IG232 

Set "Loading Add. Temp" store. 




(no word count) 

135 

TU IG341 

IG221 

Initialize to where Init. (p stored. 

136 

RJ IG220 

IG214 

Go write tape 

137 

TP IG112 

CA GI140 

IG230 

Now, add List A. Set index 


T /I r«T 1 A A 

1H UXJL^iU 



140 

TU IG101 

IG221 

Pick it up from FL 

141 

RJ IG220 

IG217 

Go write tape 

142 

RJ IG242 

IG233 

Conclude any unfinished block 

143 

TP IG340 

WB 

Set "transfer" word 

144 

RJ IG250 

IG243 

And fill in rest of block 

145 

MJ 0 

[30000] 

Automatic read wanted? 

(if not IG155) 

146 

TP IG342 

IG230 

Yes. Set index to length of Init.© 

147 

TP IG343 

IG232 

Set "Loading Add. Temp" store 

150 

TU IG344 

IG221 

Initialize to where Init. ©is 




stored. 

151 

RJ IG220 

IG214 

Go write 

152 

RJ IG242 

IG233 

Conclude any unfinished block 

153 

TP IG343 

WB 

Set "transfer" word 

154 

RJ IG250 

IG243 

And fill in rest of block 

155 

TP IG345 

IG230 

Set index to length of Control 




(Excluding Seg. Tab) 

156 

TP IG346 

IG232 

Set "Loading Add. Temp" store 

157 

TU IG347 

IG221 

Initialize to where Control is stored. 

160 

RJ IG220 

IG214 

Go write 

161 

TP IG350 

IG230 

Set index for length of segment table 

162 

TU IG351 

IG221 

Initialize to where ST is stored. 

163 

RJ IG220 

IG217 

Go write ST 

164 

RJ IG242 

IG233 

Conclude any unfinished block. 

165 

166 

TP 10 

QT IG272 

Q 1 

A J 

► Using v mask, note initial address ofCP 

167 

ST IG263 

WB 

Subtract 1 to leave room for IP 

170 

TP A 

IG232 

Set "Loading Address Temp" store 

171 

TP A 

IG353 

Save it for "transfer" word 

172 

TU IG274 

WB 

Set W.C. —>1 (as at least IP) 

173 

174 

LQ 10 

QT IG271 

Q25 1 

IG230J 

| With partial v mask, set index to 

length of CP 

175 

TU IG352 

IG221 

Initialize to where CP stored. 

176 

TP IG306 

WB1 

Basic IP 

177 

TV 12 

CA GI200 

WB1 



IA 0X200 



200 

RA WB1 

IG263 

Increment by 1 to complete IP 

201 

TP IG266 

IG231 

Set block index to 165 

202 

TV IG65 

IG221 

Initialize to WB2 
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203 

RJ IG220 

IG217 


204 

RJ IG242 

IG233 


205 

TP IG353 

WB 


206 

RP 30004 

IG210 \ 


207 

TP IG256 

WB1 


210 

RP 10163 

10,212 ) 


211 

TP IG251 

WB5 j 


212 

RJ IG250 

IG245 


213 

MJ 0 

ZA10 

Write 

214 

TP IG267 

IG231 

® 

215 

TV IG4 

IG221 

216 

TP IG232 

WB 


217 

IJ IG230 

IG221 


220 

MJ 0 

[30000] 


221 

TP [30000] 

[30000] 


222 

RA WB 

IG274 


223 

RA IG221 

IG277 


224 

IJ IG231 

IG217 


225 

RJ IG250 

IG245 


226 

RA IG232 

IG270 


227 

MJ 0 

IG214 


230 

[0 0 

0 ] 


231 

[0 0 

0 ] 

Write \ 

232 

[0 0 

0 \ 

© 

233 

SP IG231 

0 


234 

EJ IG267 

IG242 J 


235 

TV IG221 

IG236 


236 

TP IG251 

[30000]! 


237 

RA IG236 

CA GI240 

IA GI240 

IG263 ] 

IG 

240 

IJ IG231 

IG236 


241 

RJ IG250 

IG245 


242 

MJ 0 

[30000] 

Write 

243 

RP 10167 

IG2451 


244 

TP IG251 

WB1 J 

245 

TP IG305 

A \ 


246 

AT TN 

GH3 ? 


247 

RJ GH2 

GH J 


250 

MJ 0 

L30000] 


251 

74 74747 

47474 


252 

67 50342 

65127 


253 

30 01512 

54430 


254 

26 66015 

25451 


255 

32 54244 

72201 


256 

30 50270 

15131 


257 

01 34503 

46634 


260 

24 46346 

52466 


261 

34 51500 

10101 


262 

0 0 

0 


263 

0 0 

1 


264 

0 0 

63 


Go write 

Conclude any unfinished block 
Set "transfer” 

END A OF A INIT 

Fill with Z-Z 

Go write 

End. Back to Service Routine. 

Set index—^ 166 

Initialize to WB1 

Write 1st word ( CW.C.] l.a.) 

Jump on main index 
Exit 

Count 1 word. 

Jump back on block index. 

Block full-go write it. 

Increment "Ld. Add. Temp.” by 167 (V) 

Main index 
Block index 

"Loading address temp" store. 

If block index = 166^, no 
partial block to finish 

Fill with Z-Z 


Go write 
Exit 

Fill with Z-Z 

Go write on tape 
Exit 


Z 

z z 

Z 

Z Z 

(XS3) 

u 

N 

I 

c 

0 

D 1 

E 

C 

A 

T 

0 

A 

B 

P 

J 

R 

q V (XS3) 

G 

R 

A 

M 


A J 

E 

N 

D 

A 

0 

F 

A 

I 

N 

i 

T 

i y (xs3) 

A 

L 

I 

z 

A 

T 

I 

0 

N 

A 

A 

aJ 
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IG 


IG 


265 

0 

0 

73 

266 

0 

0 

165 

267 

0 

0 

166 

270 

0 

0 

167 

271 

0 

0 

07777 

272 

0 

0 

77777 

273 

0 

0 

77000 

274 

0 

1 

0 

275 

0 

2 

0 

276 

0 

3 

0 

277 

0 

1 

1 


C \ 

Vrt 

rTonn 

vrxouu 



IA 

GI300 


300 

0 

4705 

0 

301 

0 

77777 

0 

302 

01 

0 

0 

303 

07 

0 

0 

304 

10 

3 

0 

305 

71 

00103 

WB 

306 

IP 

00001 

0 

307 

0 

5 

WB74 

310 

0 

4704 

FL1 

311 

0 

0 

IG146 

312 

0 

IG313 

6 

313 

24 

54542 

47301 

314 

[77 

77777 

77777] 

315 

01 

30722 

63030 

316 

27 

65010 

51003 

317 

03 

01702 

44667 

320 

30 

65227 

77777 

321 

0 

IG322 

5 

322 

66 

51510 

14724 

323 

50 

73013 

45052 

324 

67 

66012 

45454 

325 

24 

73652 

20154 

326 

30 

71543 

46630 

327 

0 

73 

HD 

330 

0 

0 

LG 

331 

0 

0 

HD 

332 

0 

TG 

0 

333 

0 

0 

FX 

334 

0 

0 

FX5 

335 

0 

FX175 

FX175 

336 

0 

FX2 

FX2 

337 

0 

0 

LI 


CA 

GI340 



IA 

GI340 


340 

0 

0 

IN 

341 

0 

IA 

0 


2501 


10 


Read bit mask 
"X” mask 

Rewind Uni servo 3 code. 
Write Uniservo 3 code 
Basic IP 


1st print-out parameter. 


A 

R 

R 

A 

Y 

A 

[Name] 





A 

E 

X 

C 

E 

E 

D 

S 

A 

2 

5 

0 

0 

A 

V 

A 

L 

u 

E 

S 

• 




T 

0 

0 

A 

M 

A 

N 

Y 

A 

I 

N 

P 

U 

T 

A 

A 

R 

R 

A 

Y 

S 

• 

A 

R 

E 

W 

R 

I 

T 

E 

HD 

+ 

73 

= 1st 

operating address 


of GTH. (= GT) 
Length of GTH 


1st address of stored GTH. J 

BI setting 

FX Setting for index if List k 
buffer present 

FX Setting for index if no list 
buffer present 

length of Section © , initialization 


Initial running address of Section 
Stored here 
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342 

0 

0 

LN 

Length of section © of Init. 

343 

0 

0 

DD 

Initial running address of Section 

344 

0 

ID 

0 

Stored here 

345 

0 

0 

LC 

Length of Control (excluding Seg.l 
Table) > 

346 

0 

0 

1 

Initial running address J 

347 

0 

ON 

0 

Stored here 

350 

0 

0 

LT 

Length of Segment Table 1 

351 

0 

ST 

0 

Stored (formed) here J 

352 

0 

CL 

0 

Const. Pool stored here 

353 

CO 

CA 

30000 

GI354 

30000] 

Indicator 
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| j A JIU ltd LG | | ( 

I__J I 


r~ 



PART 3 


~l 


Return to Loader 


Flow Chart, General Layout of Section 1 of Initialization 
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Start 


N->N. 


Initialize <5T> 
Zeroize vble. 
counter 

Initialize FX1 
(jn.n) 

Q Q 1 in<^J?J> 

M —> IV^ 

1 —>group counter 
Set End Print 


MJ #1 set! 

v .J 

Tyes 


Rewind Uni servo 
2, and read in 
1 block 


Throw away 1 
frame from 
paper tape 


'Either of lstN^ YES 
two words = )- 

^ zzzzzz? J 

I noTa 


A YES 

* > 
Space seen? 

NO 


Set TX to pick / N 
up words of un--i^/ TX 
limited length \ / 


f Word found 
is "INPUT”? 


\ YES 

Set End Print 


/ A * 

# © 

K 


f Word found 
t is "TAPE"? 


' Word found \ 
is "VARIABLES"?)- 1 ^ 


Word found 
is "END"? 


''Word found 
is "END" ? 


Section 1 of Initialization, 
Part 1 


Set TX to pick ., / \ 

f < 0 

up words of £=. -^>{GN 

\ 2 10 

6 characters \ / 

V 

M —> Mi V 

YESl 


Alarm 

Print 


>10 10 ? 


Save in 
Temp 1 


Scan list of 

referenced 

tapes 
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o 

00 




Store C(Q) 


Increment jn, 

J 

V 

in index 


n f in FX1 



Set Alarm 
Print 


Flow Chart (cont) Section 1 of Initialization Part 1 


















Count down 
on shift 
index 


/Shift \ 
index = 0?) 


Increment 
C(Box 1) by 
1 "w" 


Count down /Word index^ YES Read in 1 
on word H = 0? J * block from 
index ^- 1 ——' M.T. #2 


V 

v y 


Either of 1st ^ 
two words all Z*s?J 


index 


Set Box 1 to 
start of 
buffer 


5 —» shift 
index 


y 


LQ [?] 6 


Extract 1 
character 
from Q 


Pufl 


\ ivu 

seen?yi5-^ out 




Rewind M.T. 
#1 


UNICODE Basic Loader 


Flow Chart (cont.) 


Section 1 of initialization, Part 1 
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Startl 


0 


0 


Set Box 1 to scan 
List A; e -> ; 

n—> n x ; 

initialize List B 
building. 


<z> 


\ .^ 

i*5=r+l 


> \ 

/ > 


r=r max? 



Box 1 


\ NO 

Examine r th - 
line, List A 



\ 

f 


(!) 





XS3 Variable 
name—? A 



Is it included 
in index ? 



Continue index 
scanning and ex¬ 
tract tape # 


NO 


Section 1 of Initialization, Part 2 


Print: FOLLOWING 
VARIABLES NOT IN¬ 
CLUDED IN INDEX. 






























Already included in Aye 
" ref" tape list" 




Print: HIT 
START TO TRY 
AGAIN. 
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Section 1 of Initialization 


IN 



RE IA2354 


Loading 

Address 


RE IN2000 


(27) 




RE MR2027 


/ , —r ■» \ ! 

k 1 1 i; i 



RE TX2220 


(37) 




RE GN2257 


(34) 




RE BP2313 


(5) 




RE TP2320 


(3) 




RE ST2323 


(14) 




RE BM2337 


(24) 


Operating address of 


RE MT2363 


(3) 


w program 


RE DP2366 


(14) 


(Total length = 1104^ words) 


RE YW2402 


(12) 



RE XW2414 


(113) 



RE YH2527 


(5) 




RE XH2534 


(51) 




RE CN2605 


(102) 



RE CL2707 


(40) 




RE LP2747 


(132) 



RE ZR3101 

RE LA3104 


(3) 

j 

List A 


RE LB7475 




List B 


RE TL660 


(12)] 

! Temporaries in Termination 
f Buffer 


RE TM700 


(5) . 

1 



RE TB1 


Buffer 



RE GT210 


Tape Handler during Object Program 


RE FX1000 


Fixed I/O locations. 


RE PR77250 


Flex print Routine 


RE DA77300 


Object Program Loader 


RE LD1500 


Running 

address of Loader. 


IA IA 





0 

TV CN2 

MR 132 

N —> 

N, 

(Enable 2nd pass) 

1 

TV FX 

ST1 \ 

JL 

Initialize ST 

2 

TP CN4 

ST12 J 




3 

TP CL 

ST13 

Zeroize 

vble. counter 

4 

TP CN10 

FX1 

Start FX1 with [0 20000 0] 

5 

TV CN40 

MR 152 

Q—> 

Q 1 


6 

TV CN41 

MR 107 

M—» 

m: 


7 

TP CN4 

TM3 

1 Group counter 

10 

TP CN10 

TL 

Initialize Tape List Index 

11 

TP LP4 

MR 150 

Set EP 

CD 

12 

MJ 10000 

IN 16 

P or M? 

13 

14 

EF 0 

ER 0 

BP4 1 

A l 

r - Throw away 1 frame 

15 

MJ 0 

MR1 

-—>Main Routine 

16 

EF 0 

CN100 

Mag. 

tape. Rewind #2 

17 

TP GN77 

GT3 \ 

Read 

1 block forward 

20 

RJ GT2 

GT J 



21 

TP CN61 

A 

Z- 

-Z—» A 


1639 



m 


MR 


22 

23 

EJ TB 

EJ TB1 

IN25 1 
IN25 J 

Check for Sentinel 

24 

MJ 0 

MR 104 

NO - go to End Routine 

25 

RJ BM 

BM11 

Initialize BM 

26 

EJ CN4 

MR1 

If space, carry on 


CA IA27 


( = MR) 


IA IA27 



0 

MJ 0 

BM1 


1 

TP CN54 

TX2 

00 —> TX index 

2 

RJ TX 

TX3 

Get 1 word 

3 

EJ CN63 

MR7 

INPUT? 

4 

EJ CN65 

MR7 

(VARIABLES?) 

5 

EJ CN67 

MR 104 

END? 

6 

MJ 0 

TX3 

Set EP © 

7 

TP LP11 

MR 150 

10 

RJ TX 

TX3 

Get next word. 

11 

EJ CN71 

MR 14 

TAPE? 

12 

EJ CN67 

MR 104 

END? 

13 

MJ 0 

TX3 

No. 

14 

TV CN43 

MR 107 

TAPE seen. M —> M^ 

15 

TP CN70 

TX2 

6—^ TX index 

16 

RJ GN 

GN1 


17 

TJ CL4 

MR21 

Should not be < 2 (i.e. - don’t 




jump if good) 

20 

TJ CN60 

MR24 

Should not be > 11 (i.e. - _do jump 




if good) 

21 

TP LP53 

MR151 1 

Alarm (illegal tape *) 

22 

RJ MR 170 

MR 152 J 


23 

MJ 0 

MR 37 


24 

TP A 

TM 

Preserve in Temp. 1 

25 

TU TL 

MR26 

Set up RP 

26 

RP[0J 

MR33 1 

l Search tape list to see if already 

27 

EJ TL1 

MR 30 J 

referenced (if so - error) 

30 

31 

TP LP60 

RJ MR 170 

MR151 1 
MR152 J 

\ Alarm (Duplicate tape #) 

32 

MJ 0 

MR37 


33 

TV TL 

MR35 


34 

RA MR35 

CN101 

(by L(TL1) v) 

35 

TP TM 

[30000] 


36 

RA TL 

CN47 

by lu, lv 

37 

RJ TX 

CA IA67 

TX3 

Find 1 word 


IA IA67 



40 

EJ CN73 

MR73 

= CHECK? 

41 

EJ CN71 

MR 101 

= TAPE? 

42 

EJ CN67 

MR 104 

= END? 

43 

TP A 

TM1 

No - preserve in case needed as 




synomyn 

44 

TP A 

TM2 

Now count to 77 format. Send to 




working store. 

45 

TP CN53 

Q 

Op field mask—>Q 
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46 

QT TM2 

A 

47 

EJ CN54 

MR 52 

50 

TP TM2 

0 

51 

MJ 0 

MR55 

52 

QS CN53 

TM2 

53 

LQ TM2 

6 

54 

MJ 0 

MR45 

55 

RJ STll 

ST 

56 

SP TXl 

0 

57 

EJ CL21 

MR 67 

60 

RJ TX 

TX3 

61 

EJ CN55 

MR 67 

62 

TP TM1 

Q 



63 

TP A 

TM1 


64 

RJ STll 

ST1 


65 

TP TM1 

A 


66 

MJ 0 

MR 40 


67 

RJ TX 

TX3 


70 

TP A 

Q 


71 

RJ STll 

STl 


72 

MJ 0 

MR 37 


73 

RJ GN 

GN1 


74 

EJ ST 13 

MR77 


75 

TP LP64 

MR151 


76 

RJ MR 170 

MR 152 


77 

TP CL 

CA IA127 

ST13 



IA IA127 


MR 

100 

MJ 0 

MR 37 

TAPE 

101 

RJ MR 147 

MR 141 


102 

RA TM3 

CN4 


103 

MJ 0 

MR 16 

END 

104 

MJ 10000 

MR 106 


105 

MJ 0 

MR107 


106 

EF 0 

CN100 

r- ■ ■ 

JL QL 

MJ 0 

[30000] 


110 

RJ MR 147 

MR141 

K 

(good) 

111 

TP LP40 

PR 3 

112 

113 

RJ PR2 

TP CL 

PR 

TM2 


114 

TV TL 

TM2 


115 

TU MR27 

MR 120 


116 

IJ TM2 

MR 120 


117 

MJ 0 

MR 124 


120 

TP [30000] 

A 


121 

RJ DP 13 

DP 


122 

RA MR 120 

CN50 


123 

MJ 0 

MR 116 


124 

PR 0 

CL7 


} 


} 


Inspect 1st two digits 
= 01 ? 

No. result to Q. all finished 

Yes, replace by 77 
and shift left 


Now Q holds 77 format. Store 
(counting 1 vble) 

Separating symbol—»A 

= ? 

No, get more information 

Is output^_ /\ ? 

No, so = was not seen. Prepare to 
store previous,meanwhile preserving 
new information 

Store old name 

Now go investigate new information 

= seen. Obtain synomyn 
and store it 


Then back to look for more. 
Obtain check # 

Correct? 


No. 


hAlarm 


Zeroize check counter 


Act appropriately 
Up group count by 1 
and back for tape 
P. or M.? 

P - jump. 

M - rewind * 2 

Act appropriately 

INDEX OK. TAPES LISTED ARE ^ 

Zeroize index 
Set it up. 

Initialize 
Jump on index 
All through-out 
1 tape # to A 

Print it- 

Increment by 1 ”u" 

Back for more 
Period 
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m 


Error 




TX 


125 

PR 0 

CL11 

Carriage return 

126 

PR 0 

CL11 

Carriage return 

127 

MJ 0 

YW 

Exit (Normal) 

130 

TP MR 150 

PR 3 1 

L EP Box 

131 

RJ PR2 

PR J 

1 

132 

RJ MR 132 

[30000] 

(Initially MR 134) 

133 

MJ 0 

ZR 

Exit (Get off machine) 

134 

TP LP32 

PR3 ] 

|> HIT START TO TRY AGAIN, ETC. 

135 

RJ PR2 

PR J 

136 

SP CL 

0 

Clear A 

137 

MS 0 

CA IA167 

IA IA167 

MR 140 

Stop 

140 

ZJ ZR 

INI 

(Non zero - get off machine exit) 

141 

TP CN75 

Q 

A TAPE A -> Q 

142 

RJ ST11 

STl 

—> index 

143 

TP TM 

Q 

Tape *— > Q 

144 

RJ ST11 

STl 

—> index 

145 

146 

TP CL35 

RJ ST11 

Q 1 

STl J 

^ leave room (cleared) for indicator 

147 

MJ 0 

[30000] 


150 

[0 30000 

30000] 

EP parameter. 

151 

[0 30000 

30000] 

REP parameter. 

152 

MJ 0 

[30000] 

Entry. Initially MR 153 

153 

TV CN41 

MR 107 

M —> M 2 

154 

TP LP16 

MR 150 

Set EP (3) 

155 

TP LP46 

PR 3 

Prepare for Print-out 

156 

RJ MR152 

MR 160 

Q—* Q2 

157 

TP LP47 

PR 3 

160 

RJ PR2 

PR 

Go print 

161 

SP TM3 

0 

Group count —» A 

162 

PR 0 

CL3 

Shift down 

163 

RJ DP13 

DP 

Print group count. 

164 

PR 0 

CLIO 

Space 

165 

PR 0 

CL2 

Shift up 

166 

TP MR 151 

PR 1 

1 Specific diagnosis 

167 

RJ PR2 

PR J 

f 

170 

MJ 0 

CA IA220 

IA IA220 

[30000] 

Exit 

0 

MJ 0 

[30000] 

Exit. 

1 

[0 30000 

30000] 

Output line (for cut-off symbol) 
Input line (value for index setting) 

2 

[0 30000 

30000] 

3 

TP CN55 

TX36 

Entry. Fill word with A - A 

4 

TP TX2 

TM2 

Set index 

5 

MJ 10000 

TX10 

P or M? 

6 

RJ TP 1 

TP 

P. Find start 

7 

MJ 0 

TX14 

Go translate 

10 

RJ Mil 

MT 

M. Find start 

11 

MJ 0 

TX21 


12 

MJ 10000 

TX20 

P or M? 

13 

RJ BP2 

BP 

P - Find next frame. 

14 

SA CN 

17 i 

| 

15 

TU A 

TX16 

> Translate 

16 

TP[30000] 

A J 

1 

17 

MJ 0 

TX21 
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GN 


BP 


20 

RJ BM 

BM1 

21 

RP 20006 

TX23 ] 

22 

EJ CL14 

TX33 j 

23 

LQ TX36 

6 

24 

TP CL1 

Q 

25 

QS A 

TX36 

26 

IJ TM2 

TX12 

27 

TP LP70 

MR151 1 

30 

RJ MR170 

MR 152 J 

31 

TP CN54 

TM2 

32 

MJ 0 

TXI2 

33 

TP A 

TX1 

34 

TP TX36 

A 

35 

MJ 0 

TX 

36 

[0 30000 

CA IA257 

30000] 


IA IA257 


0 

MJ 0 

[30000] 

1 

TP CL 

GN33 

2 

MJ 10000 

GN7 

3 

RJ TP1 

TP 

4 

EJ CN32 

TP 

5 

RP 20012 

GN30 

6 

EJ CL22 

GN14 

7 

RJ MT1 

MT 

10 

EJ CL21 

MT 

11 

TJ CN56 

GN13 

12 

MJ 0 

GN30 

13 

ST CN37 

Q 

14 

SP GN33 

2 1 

15 

SA GN33 

i j 

16 

QA CL33 

GN33 

17 

MJ 10000 

GN23 

20 

RJ BP2 

BP 

21 

RP 20005 

GN5 1 

22 

EJ CL6 

GN26 J 

23 

RJ BM 

BM1 

24 

RP 20006 

gnu i 

25 

EJ CL14 

GN26 J 

26 

SP GN33 

0 

27 

MJ 0 

GN 

30 

TP LP74 

MR151 1 

31 

RJ MR170 

MR 152 J 

32 

MJ 0 

GN17 

33 

[0 30000 

30000] 


CA IA313 



IA IA313 


0 

EF 0 

BP4 

1 

ER 0 

A 


M - Find next character 

Exit { FLEX A cr tab ’ * “ 
l XS3 i A = ,. ; 

Mask —> Q 

Insert new character 
Alarm 

Reset index to large value 


Output to A 

Word assembly space 


Exit 

Zeroize working store 
P or M? 

P. Get 1st character 
Throw away = 

Check down digit list 

Mag. Tape - Find 1st character. 
Throw away = 

Should be < 158 

Subtract 3 —> Q 

Multiply previous by 10 

Add in new figure 
P or M? 

P - get next ch. 

Exit if A cr tab . , FLEX 

M. Get next ch. 

Exit if A = i , . ; XS3 

Result—> A 
and out. 

Alarm 


Erasable 
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2 

RP 20006 

i 

[30000] 

Basic paper tape read. 

3 

EJ CL 

BP 


4 

10 3 

CA IA320 

0 J 



IA IA320 



0 

RJ BP2 

BP 

Throw away routine. (After 

1 

RP 20006 

[30000] 

we have a significant code) 

2 

EJ CL6 

CA IA323 

BP 



IA IA323 



0 

RA ST13 

CN4 

Count 1 vble. 

1 

TP Q 

[30000] 

Build index 

2 

RA ST1 

ST12 

Inc. st. order 

3 

RA FX1 

CN47 


4 

TJ CN76 

ST11 


5 

TP LP77 

MR151 1 

| Alarm. 

6 

RJ MR 170 

NR 152 J 

7 

TP CL 

ST12 


10 

TP CN10 

FX1 


11 

MJ 0 

[30000] 


12 

0 [30000 

30000] 

Increment 

13 

0 [30000 
CA IA337 

30000] 

Vble. count. 


IA IA337 



0 

MJ 0 

[30000] 

Exit 

1 

IJ BM22 

BM14 

Entry. Jump on shift index 

2 

RA BM14 

CN50 


3 

IJ BM23 

BM13 

Jump on word index 

4 

TP CN77 

GT3 1 

Read 1 block forward 

5 

RJ GT2 

GT J 

6 

TP CN61 

A 

<c 

t 

N 

1 

1 

1 

1 

1 

CsJ 

7 

EJ TB 

BM17 1 

k If Sentinel seen. f alarm. 

10 

EJ TB1 

BM17 J 

11 

TP CN57 

BM23 

Word index —* 167 

12 

TU BM7 

BM14 


13 

TP CN74 

BM22 

Shift index —> 5 

14 

15 

LQ [30000], 
QT CL1 

6 1 

A J 

- Extract 1 character 

16 

MJ 0 

BM 

And out 


TP LP24 
RJ MR 170 
MJ 0 

[0 30000 

[0 30000 

CA IA363 


MR151 1 
MR152 J 
MR 104 
30000] \ 
30000] J 


Alarm 

Shift index 
Word index 


IA IA363 
RJ BM 


Mag. Tape throw away. 
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DP 


1 

RP 20005 

[30000] 

k (Discard i A , . ;) 

2 

EJ CL14 

CA IA366 

IA IA366 

BM1 J 


0 

DV CN72 

Q 

Quantity given in A. Divide by 10 

1 

TP A 

TM4 

Save remainder 

2 

3 

TN Q 

ZJ DP4 

A 1 

DP6 J 

|“ Tens figure zero? 

4 

AT CL34 

DP5 

No, form print order 

5 

[ 0 30000 

300001 

6 

TP CL34 

A 

Dummy print again 

7 

ST TM4 

DP 10 

form print order for units 

10 

[ 0 30000 

30000] 

11 

PR 0 

CLIO 1 

► Then 2 spaces 

12 

PR 0 

CLIO J 

13 

MJ 0 

CA IA402 

[ 30000] 

Exit 


Initialization for XW 


0 

IA IA402 

TV XW106 

XW74 

Enable restart after 1st error pass 

1 

TU FX 

XW16 1 

Set up index-scanning 


2 

TU FX1 

XW15 J 


3 

TV XW107 

XW53 

Initialize error print- 

-out section 

4 

TP CN10 

TL 

Set Tape List index to 

0 20000 0 

5 

TV XW110 

XW1 

Set normal exit (YH) 


6 

TU XW106 

XW2 

Scan List A from LAI 1 

LA 

7 

TP LA 

TM1 

Set index J 

10 

TV XW111 

XW50 

Build List B from LB1 


11 

TP CL 

LB 

and set index 



CA IA414 
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First Run-Through Data List, and Preliminary Checking. 


0 

IA IA414 

IJ TM1 

XW2 

Jump on List A index 

1 

MJ 0 

[30000] 

Exit when all completed 

2 

TP[30000] 

A 

Examine one item. 

3 

TP A 

TM 

Save it in temp 

4 

TP CN53 

Q 

Op field mask —» Q 

5 

QT A 

A 

and examine Op. field 

6 

ZJ XW14 

XW7 

7 

RJ XW52 

XW47 

Zero, . . a "mod. Ed.a” line - 

10 

RA XW2 

CN50 

build List B 

So 

11 

TU A 

XW12 

extract 

12 

TP[30000] 

TM 

next line (XS3 name) 

13 

RJ XW52 

XW50 

and store it as well, in List B 

14 

TP TM 

A . 

Now, name to A 

15 

RP[0 ] 

XW53 1 

. Scan index. (Alarm, if not present) 

16 

EJ [30000] 

XW17 J 

17 

SN Q 

17 


20 

SA XW15 

0 


21 

SA XW16 

0 


22 

TU A 

XW27 

Set up EJ for continued search 

23 

LQ Q 

17 

24 

TU Q 

XW26 

Set up RP 

25 

TP CN75 

A 

[A TAPE A to A 

26 

RP[0 ] 

XW103 1 

I Continue to scan index, searching for 

27 

EJ [30000] 

XW30 J 

i tape * 

30 

SN Q 

17 

31 

SA XW26 

0 


32 

SA XW27 

0 


33 

TU A 

XW34 


34 

SP[30000] 

0 

Tape —> A 

35 

TP A 

TM 

and save it 

36 

TU TL 

XW37 


37 

RP[0 ] 

XW41 


40 

CA IA454 

IA IA454 
EJ TLl 

XW45 

Scan referenced tape list 

41 

TV TL 

XW43 

Not yet present - so insert it 

42 

RA XW43 

CN101 


43 

TP TM 

[30000] 


44 

RA TL 

CN47 

Increment index 

45 

RA XW2 

CN50 

Prepare to scan further down list 

46 

MJ 0 

xw 


47 

RA LB 

CN4 


50 

TP TM 

[30000] 


51 

RA XW50 

CN4 


52 

MJ 0 

[30000] 
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xw 


YH 


53 

MJ 0 

[30000 ] 

Initially XW54. Error Routine. 

54 

TP LPllO 

PR 3 1 

Print: FOLLOWING VARIABLES NOT 

55 

RJ PR2 

PR j 

r INCLUDED IN INDEX. 

56 

TV XW112 

XW1 

Amend exit from main routine 




(to XW 73) 

57 

RJ XW53 

XW60 


60 

TP CN74 

TM2 

2nd and subsequent errors here. 




5 —>index 

61 

LQ TM 

6 

Shift one character over 

62 

QT CLl 

A 

Extract it 

63 

RP 20074 

XW71 


64 

EJ CN1 

XW65 


65 

SN Q 

17 

*■ Compute and print Flex-code 

66 

SA XW63 

71 


67 

PR 0 

A J 


70 

IJ TM2 

XW61 


71 

PR 0 

CLll 

Carriage return, when fully printed 

72 

MJ 0 

XW45 


73 

PR 0 

CLll 

Extra CR 

74 

RJ XW74 

[30000] 

Error END. Initially XW76 

75 

MJ 0 

ZR 

2nd time - get off machine 

76 

TP LP32 

PR 3 1 

L 1st time: HIT START TO TRY AGAIN 

77 

RJ PR2 

PR J 



CA IA514 




IA IA514 



100 

SP CL 

0 

Clear A 

101 

MS 0 

XW102 

Stop 

102 

ZJ ZR 

YW1 

If A i- 0, get off machine; otherwise 




try again 

103 

TP LP131 

PR 3 1 


104 

RJ PR32 

PR 

Print: MACHINE ERROR 

105 

MJ 0 

ZR J 

1 G-O-M 

106 

0 LAI 

XW76 ' 


107 

0 0 

XW54 


110 

0 0 

YH 

’ Constants. 

111 

0 0 

LB1 


112 

0 0 

XW73 , 



CA IA527 






Initialization for XH 



IA IA52 7 




0 

TP CL 

TM3 7 

Set index 


1 

TV TL 

TM3 J 


2 

TV XH46 

XHl 

Set normal 

exit; BACK TO LOADER 

3 

TU XW40 

XH2 

Start list 

at TLI 

4 

TV XH47 

CA IA534 

XH17 

Initialize 

error procedures 
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0 

IA IA534 

IJ TM3 

XH2 

Count down on index 

1 

MJ 0 

[30000] 

Exit 

2 

TP[30000] 

TM 

Extract 1 tape * 

3 

SP TM 

14 


4 

AT CL36 

TM1 

” Rewind this tape. 

5 

EF 0 

A 


6 

RJ XH40 

XH31 

Go read in 1 block forward 

7 

MJ 0 

XH17 

Alarm return - no lead Sentinels 

10 

TP CL35 

A 

A DATA — > A 

11 

EJ TB2 

XH27 

Tape so labelled? 

12 

TP CL21 

TM2 

No, prepare to read more. Set scan 

13 

RJ XH40 

XH31 

index 

14 

IJ TM2 

XH31 

No Sentinel seen 

15 

TP CL35 

A 

A DATA A — » A 

16 

EJ TB2 

XH27 

Tape so labelled? 

17 

MJ 0 

[30000] 

No, alarm, (initially XH20) 

20 

TP LP117 

PR 3 1 

l Print: DATA TAPE NOT MOUNTED 

21 

RJ PR2 

PR J 

1 ON SERVOS A 

22 

TV XH50 

XH1 

Amend exit from main routine, (to XH41) 

23 

RJ XH17 

XH24 

Disconnect this path 

24 

SP TM 

0 

Tape * —>A 

25 

RJ DP13 

DP 

Convert and print it 

26 

EF 0 

TM1 

Rewind tape 

27 

RA XH2 

CN50 

Pick next one 

30 

MJ 0 

XH 


31 

SP TM 

17 1 

1 

32 

AT CL37 

GT3 

r Read 1 block forward 

33 

RJ GT2 

GT J 


34 

TP CN61 

A 

Z-Z to A 

35 

RP 20002 

XH40 

If ZZ Z seen, ao to exit +1. 

36 

EJ TB 

XH37 

If not, normal exit. 

37 

RA XH40 

CN4 


40 

CA IA574 

IA IA574 
MJ 0 

[30000] 


41 

TP LP125 

PR 3 

Error exit. 

42 

RJ PR2 

PR 

Print: CHANGE TAPE, HIT START. 

43 

SP CL 

0 

Clear A 

44 

MS 0 

XH45 

Stop 

45 

ZJ ZR 

YH 

Hit Start to continue 

46 

0 0 

LD1 


47 

0 0 

XH20 


50 

0 0 

XH41 



CA IA605 
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XS3 - Stored by Flex. 



IA 

IA605 



0 

0 

0 

CN 


1 

0 

0 

66 

T 

2 

0 

0 

MR 134 


3 

0 

0 

51 

0 

4 

0 

0 

01 

A 

5 

0 

0 

33 

H 

6 

0 

0 

50 

N 

7 

0 

0 

47 

M 

10 

0 

20000 

0 


11 

0 

0 

46 

L 

12 

0 

0 

54 

R 

13 

0 

0 

32 

G 

14 

0 

0 

34 

I 

15 

0 

0 

52 

P 

16 

0 

0 

26 

C 

17 

0 

0 

70 

V 

20 

0 

0 

30 

E 

21 

0 

0 

74 

Z 

22 

0 

0 

27 

D 

23 

0 

0 

25 

B 

24 

0 

0 

65 

S 

25 

0 

0 

73 

Y 

26 

0 

0 

31 

F 

27 

0 

0 

72 

X 

30 

0 

0 

24 

A 

31 

0 

0 

71 

W 

32 

0 

0 

44 

J 

33 

0 

0 

14 

9 

34 

0 

0 

67 

U 

35 

0 

0 

53 

Q 

36 

0 

0 

45 

K 

37 

0 

0 

03 

0 


CA 

IA645 




IA 

IA645 



40 

0 

0 

MR 153 


41 

0 

0 

MR 130 


42 

0 

0 

22 

# 

43 

0 

0 

MR 110 


44 

0 

0 

76 

= 

45 

0 

0 

01 

cr => A 

46 

0 

0 

21 

t 

47 

0 

1 

1 


50 

0 

1 

0 


51 

0 

0 

01 

tab => A 

52 

0 

0 

04 

1 

53 

77 0 

0 


54 

01 

0 

0 
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55 

01 01010 

10101 


56 

0 0 

15 


57 

0 0 

167 


60 

0 0 

13 

8 

61 

74 74747 

47474 

z-Z 

62 

0 0 

10 

5 

63 

01 34505 

26766 

A INPUT 

64 

0 0 

07 

4 

65 

34 24254 

63065 

IABLES 

66 

0 0 

11 

6 

67 

01 01013 

05027 

A A AEND 

70 

0 0 

06 


71 

01 01662 

45230 

AATAPE 

72 

0 0 

12 

7 

73 

01 26333 

02645 

A CHECK 

74 

0 0 

05 

2 

75 

01 66245 

23001 

Atape A 

76 

0 20150 

150 

Limit for index 

77 

50 102 

TB 

GTH code for read 1 blk. 

100 

02 00200 

20000 

Rewind Uniservo 2 

101 

0 0 

CA IA707 

TLl 

Constant 


forward(#2) 
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CL 


LP 



IA 

IA707 


0 

0 

0 

0 

1 

0 

0 

77 

2 

0 

0 

47 

3 

0 

0 

57 

4 

0 

0 

02 

5 

0 

0 

43 

6 

0 

0 

46 

7 

0 

0 

42 

10 

0 

0 

04 

11 

0 

0 

45 

12 

0 

0 

51 

13 

0 

0 

61 

14 

0 

0 

01 

15 

0 

0 

21 

16 

0 

0 

22 

17 

0 

0 

23 

20 

0 

0 

0 

21 

0 

0 

76 

22 

0 

0 

33 

23 

0 

0 

60 

24 

0 

0 

72 

25 

0 

0 

66 

26 

0 

0 

62 

27 

0 

0 

64 

30 

0 

0 

70 

31 

0 

0 

74 

32 

0 

0 

52 

33 

0 

0 

37 

34 

PR 

0 

CL33 

35 

01 

27246 

62401 

36 

02 

00200 

0 

37 

50 

00100 

TB 


CA 

IA747 



IA 

IA747 


0 

45 

47140 

62220 

1 

27 

04140 

61603 

2 

07 

15122 

00520 

3 

06 

24142 

31120 

4 

0 

LP 

4 

5 

45 

47060 

30422 

6 

30 

01300 

40130 

7 

15 

20042 

41520 

10 

16 

14261 

42022 

11 

0 

LP5 

4 

12 

45 01052 

01220 

13 

26 

03122 

00434 

14 

06 

30161 

62015 

15 

01 

30231 

12000 

16 

0 

LP12 

4 

17 

45 

47200 

62204 


Leader 

Delete 

| basic throw aways 

Coior 

Stop 


Cut off*s 



Flex 


XS3 codes. 


9 
8 
7 
6 
5 
4 
3 
2 
1 
0 

Dummy print 
A DATA A 

General rewind code 
General read code 


1 Flex-codes 


Cr t I N D E 

X A I N C 0 , 

M P R E H E 

N S I B L E 

Cr | N 0 A D 

A T A A T A 

P E A S P E 

C I F I E D . 

Cr T H E R E 

F 0 R E A U 

N A C C E P 

TABLE- 

Cr f E N D A 1 


EP ® 
EP © 

EP © 
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20 

06 

03010 

43112 

N 

0 

T 

A 

W 

R 

21 

14 

01012 

00604 

I 

T 

T 

E 

N 

A 

22 

03 

06040 

13015 

0 

N 

A 

T 

A 

p 

23 

20 

45450 

00000 

E 

Cr Cr 




24 

0 

LP17 

5 







25 

04 

04040 

40514 

A 

A 

A 

A 

H 

I 

26 

01 

04240 

13012 

T 

A 

s 

T 

A 

R 

27 

01 

04010 

30401 

T 

A 

T 

0 

A 

T 

30 

12 

25043 

01330 

R 

y 

A 

A 

G 

A 

31 

14 

06454 

50000 

I 

N 

Cr Cr 

— 

— 

32 

0 

LP25 

5 







33 

45 

47140 

62220 

Cr 

t 

I 

N 

D 

E 

34 

27 

04033 

60404 

X 

A 

0 

K 

A A 

35 

01 

30152 

02404 

T 

A 

p 

E 

s 

A 

36 

11 

14240 

12022 

L 

I 

s 

T 

E 

D 

37 

04 

30122 

00457 

A 

A 

R 

E 

A 

1 


CA 

IA1007 









BM Special 
alarm 
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LP 



IA 

IA1007 









40 

0 

LP33 

5 








41 

45 

47223 

00130 

Cr t 

D 

A 

T 

A ’ 


42 

04 

14062 

22027 

A 

I 

N 

D 

E 

X 


43 

04 

20121 

20312 

A E 

R 

R 

0 

R 

" Error 

44 

24 

45454 

50000 

S 

Cr Cr Cr 

- 

- 

print-out 

45 

13 

12033 

41504 

G 

R 

0 

D 

P 

A J 

headings 

46 

0 

LP41 

5 








47 

0 

LP45 

1 








50 

14 

11112 

01330 

I 

L 

L 

E 

G 

A 


51 

11 

04013 

01520 

L 

A 

T 

A 

P 

E 

© 

52 

04 

06034 

54500 

A N 

0 

Cr Cr 

- 

53 

0 

LP 50 

3 







54 

22 

34151 

11416 

D 

U 

P 

L 

I 

C 

© 

55 

30 

01200 

40130 

A 

T 

E 

A 

T 

A 

56 

15 

20040 

60345 

P 

E 

A 

N 

0 

Cr 

57 

45 

0 

0 

Cr 







60 

0 

LP54 

4 








61 

16 

05201 

63604 

C 

H 

E 

C 

K 

A 


62 

14 

06160 

31212 

I 

N 

C 

0 

R 

R 

© 

63 

20 

16014 

54500 

E 

C 

T 

Cr Cr 

- 


64 

0 

LP61 

3 





A 



65 

31 

03122 

20401 

W 

0 

R 

D 

T 

© 

66 

03 

03041 

10306 

0 

0 

A 

L 

0 

N 

67 

13 

45450 

0 

Cr Cr Cr 

- 



70 

0 

LP65 

3 








71 

14 

11112 

01330 

I 

L 

L 

E 

G 

A 


72 

11 

04221 

41314 

L 

A 

D 

I 

G 

I 


73 

01 

45450 

0 

T 

Cr Cr 





74 

0 

LP71 

3 








75 

03 

17201 

22611 

0 

V 

E 

R 

F 

L 


76 

03 

31454 

50000 

0 

w 

Cr Cr 

- 



77 

0 

LP75 

2 









CA 

IA1047 
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IA 

IA1047 








100 

45 

47260 

31111 

Cr f 

F 

0 

L 

L 

101 

03 

31140 

61304 

0 

W 

I 

N 

G 

A 

102 

17 

30121 

43023 

V 

A 

R 

I 

A 

B 

103 

11 

20240 

40603 

L 

E 

S 

A 

N 

0 

104 

01 

04140 

61611 

T 

A 

I 

N 

C 

L 

105 

34 

22202 

20414 

U 

D 

E 

D 

A 

I 

106 

06 

04140 

62220 

N 

A 

I 

N 

D 

E 

107 

27 

45450 

0 

X 

Cr Cr 



- 

110 

0 

LP100 

10 







111 

45 

47223 

00130 

Cr t 

D 

A 

T 

A 

112 

04 

01301 

52004 

A 

T 

A 

P 

E 

A 

113 

06 

03010 

40703 

N 

0 

T 

A 

M 

0 

114 

34 

06012 

02204 

U 

N 

T 

E 

D 

A 

115 

03 

06042 

42012 

0 

N 

A 

S 

E 

R 

116 

17 

03240 

40457 

V 

0 

S 

A 

A 


117 

0 

LP111 

6 






120 

45 

45471 

60530 

Cr Cr t 

c 

H 

A 

121 

06 

13200 

40130 

N 

G 

E 

A 

T 

A 

122 

15 

20040 

40405 

P 

E 

A 

A 

A 

H 

123 

14 

01042 

40130 

I 

T 

A 

s 

T 

A 

124 

12 

01454 

50000 

R 

T 

Cr Cr 



125 

0 

LP120 

5 







126 

45 

47073 

01605 

Cr t 

M 

A 

C 

H 

127 

14 

06200 

42012 

I 

N 

E 

A 

E 

R 

130 

12 

03124 

54500 

R 

0 

R 

Cr Cr 

- 

131 

0 

LP126 

3 








CA 

LAI101 









0 

IA 

EF 

IA1101 

0 

ZR2 

Rewind tape # 1 

1 

MS 

0 

DA 

Back to basic loader 

2 

02 

00200 

10000 



CA 

IA1104 




Box 2 
errors 
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Section 2 of Initialization 


Prepare to Scan 
List B. Set 
r = 0 in Box 1. 
(r = # vhl ps f or 


Box 1 


(D 


I*-*— v ‘4" 1 



i > 

i<c = i T X 

n 


r max? 



From 

» N0„ List B, obtain 
) > drum address, 

and modulus 

UNICODE LOADER 


From List B, 
obtain XS3 name 
of variable 
wanted 


' RD \ 
Lib. Rtn. (Tape 
position entry)/ 


Reduce count 
of no. values 
wanted by 1 


Count 
= 0 ? 


/ RD” \ 

Lib. Rtn. (Data V 
v extraction entry)/ 


Inadequate 
Data Exit 


Transfer from 
core -> drum 













Regional Definitions for Section 2 of Initialization. 


RE 

ID3460 

Loading address 

RE 

DD1750 

(46) 


RE 

IN2016 

(12) 


RE 

DR2030 

(67) 


RE 

BM2117 

(30) 

Operating addresses of 

RE 

ST2147 

(15) 

program 

RE 

PS2164 

(65) 

(total length = 614 q 

RE 

SC2251 

(10) 

words) 

RE 

MF2261 

(7) 


RE 

TB2270 

(12) 


RE 

EP2302 

(17) 


RE 

GG2321 

(170) 


RE 

CF2511 

(53) J 


RE 

BF1 

Buffer 

RE 

GT210 

Tape Handler during Object Program 

RE 

FXIOOO 

Fixed I/O locations 

RE 

TN660 

(1) 


RE 

XX661 

(5) 

r Temporaries in Termination 

RE 

CC666 

(27) . 

Buffer 

RE 

IL2571 

2500io words of intermediate storage 

RE 

LB7475 

List B 

RE 

PR77250 

Flex print routine 

RE 

LD1500 

Operating address of Object Program 
Loader 
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Automatic Data Read-in— Section 2 of Initialization 


DD 



IA ID 




0 

TP LB 

DD44 


Set up List B index 

1 

2 

TU DD35 

TU DD36 

DD5 

DD13 

l 

; 

Initialize reading of List B 

3 

IJ DD44 

DD5 


Count down on List index 

4 

MJ 0 

LDl 


All through - Exit - IBACK TO LOADER! 

5 

TP [30000] 

Q 


1st of line pair (mod, da )—> Q 

6 

TV Q 

DD31 


Set drum address 

7 

QT DD37 

DD45 


Extract modulus 

i n 

JLVJ 

at nn/in 

n jl. i/uiv/ 

nn-in 

uv 


and form drum loading RP 

11 

LQ DD45 

25 


Shift to "v” to form index 

12 

TV DD35 

DD21 


Initialize 

13 

TP [30000] 

INI 


Name of variable wanted? 

14 

RJ IN 

IN2 


Position tape 

15 

MJ 0 

DD13 


EOD exit - should never come up 

16 

IJ DD45 

DD20 


OK - no count down on quantity reef'd 

17 

MJ 0 

DD30 


20 

RJ IN 

IN 3 


Obtain 1 word 

21 

TP Q 

[30000] 


Store temporarily in core 

22 

RA DD21 

DD42 



23 

MJ 0 

DD16 



24 

TV DD21 

DD25 


Here on inadequate data - fill 





with zero 

25 

TP DD41 

[30000] 



26 

RA DD25 

DD42 



27 

IJ DD45 

DD25 



30 

31 

[0 30000 

TP IL 

30000] 

[30000] 

} 

OK - transfer to arum 

32 

RA DD5 

DD43 



33 

RA DD13 

DD43 



34 

MJ 0 

DD3 


Back for more 

35 

0 LB1 

IL 



36 

0 LB2 

0 



37 

0 07777 

0 




CA ID40 
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IA 

ID40 




40 

RP 

30000 

DD32 



41 

0 

0 

0 



42 

0 

0 

1 



43 

0 

2 

0 



44 

[0 

30000 

30000] 

Erasable. 

List B index 

45 

[0 

30000 

30000] 

Erasable. 

Quantity index 


CA 

ID46 





The Read Permanent Library Subroutine is inserted from ID46 through 
ID350. Annotated coding for this subroutine can be found in Section II, 2, 
b, of this manual. 

From ID351 on, the Excess-Three Decimal to Floating Point routine is 
inserted. This routine is flow charted and explained in Section III, 3, a, 
under Translation Subroutines. 
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Control Section for Object Program 
During the execution of the Object Program the Control section is 
entered through F 2 as a result of an Interpret (IP) command. The IP 
command is used in the Object Program to provide the required information 
for suitable transfer of control from one segment to another. The form of 
the IP command is: 

14 OFFTT XXXXX 

Where FF is the number of the segment containing the IP command, 

TT is the number of the segment to which control is to be trans¬ 
ferred, and 

XXXXX is the address in segment TT receiving control. 

Although there is no actual segment numbered 0, an IP command with 
FF = 0 and TT = 1 is built by Initialization Generation to provide the start¬ 
ing point for Segment 1. Thus, when MS2 is set, which provides a computer 
stop at the end of a segment, a stop will also occur at the end of the imag¬ 
inary Segment 0 and preceding the read-in of Segment 1. There is, of course, 
no Termination coding for the imaginary Segment 0. 

When control is entered it performs the following tasks: 

1) Reads in and executes Termination (if any) for Segment FF. 

2) Moves Object Program tape to Segment TT. 

3) Reads Segment TT and its Preface (if any) to H.S.S. 

4) Executes Preface (if any) for Segment TT. 

5) Transfers control into Segment TT at XXXXX given in IP command. 
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The Move Tape subroutine is dependent on the Segment Table, built by 
the Segmentation Phase, to determine the correct block count in moving the 
Object Program tape from Segment FF to Segment TT. The Segment Table is 
always 17io words in length, as follows: 


TBO 

o o;0 

0 0 0 

cix x 

XXX 

1 

B (0) 

B(16) 

BC32) 

B(48) 

2 

B (1) 

B(17) 

BC33) 

B(49) 

3 

B (2) 

B(18) 

B(34) 

B(50) 

4 

B (3) 

BQ9) 

B(35) 

BC51) 

5 

B (4) 

B(20) 

B(36) 

B(52) 

6 

B (5) 

B(2l) 

B(37) 

B(53) 

7 

B (6) 

B(22) 

B(38) 

B(54) 

10 

B (7) 

B(23) 

BC39) 

B(55) 

11 

B (8) 

B(24) 

B(40) 

B(56) 

12 

B (9) 

B(25) 

BC41) 

B(57) 

13 

B(10) 

B(26) 

B(42) 

B(58) 

14 

B(ll) 

B(27) 

B(43) 

B(59) 

15 

B(12) 

B(28) 

B(44) 

B(60) 

16 

B(l3) 

B(29) 

BC45) 

B(6l) 

17 

B(14) 

BOO) 

B(46) 

B(62) 

20 

B(15) 

B(31) 

B(47) 

B(63) 


XXXXX = address to which all seg¬ 
ments of the problem are 
read from tape. 

B(K) denotes the total number of 
blocks on the Object Program 
tape required by Segment K. 
This includes the Label block, 
the Segment, the Preface, and 
the Termination blocks. 

B(0) = 0 

B(K) = 0 if K> the 
total number of segments 
in the problem. 


The following conditions are assumed for FF and TT 


0 ^ FF ^-63 
1 ^ TT r£=. 63 
FF f TT 


10 

10 


To move the tape from Segment FF to Segment TT, two cases must be 


considered. 


Case 1 : FF < TT 
Case 2 : FF > TT 

At the time the tape is to be moved from Segment FF to Segment TT, it is 

positioned exactly at the end of Segment FF. Hence the number of blocks the 

tape is to be moved to position it at the beginning of Segment TT is: 

Case 1 : B(FF f l) + B(FF 4- 2) f . . . +■ B(TT - 1) 

Case 2 : B(TT) +- B(TT 4- 1) f .... + B(FF) 

The tape is moved forward for Case \ backward for Case 2. 
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Segment Layout on Object Program Tape 


Label 1 

S E G M E N 

1 

Block 2 

T A A A A A 

/ 

3 

00 00 00 00 00 P 


4 

00 00 00 00 00 M 


5 

0<— N —> 0 00 00 00 

1 f 


6 

00|< L > Y > 


7 

371 Preface [Preface 



lExit jEntry 


8 

00 00 00 Cj<—R—» 


9 

z z z z z z 

1 

120 

z z z z z z 

f 

Segment 



and 



Preface 



Blocks 



Partial 


_■ 

Block 


► 


z z z z z z 

• ► 


z z z z z z 


Termination 


’ 

Blocks 


■ 


Sentinel (XS3) 

P = Segment number 
M = number of blocks of Termination 
N = number of full blocks in Seg¬ 
ment + Preface 

L = no. words of partial block; 

Y = Insert address of partial block 
Return Jump to execute Preface 

R = number of words in Preface 

XS3 Z fill. 


Full blocks of Segment 
and Preface 


Partial block of Segment and Preface 


Remainder of partial block filled 
with Z's 


Blocks of Termination as required 
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Entry 

from 

F„ 


Pick up 
IP 

command 


Set up Exit from 
control to address 
in Next Segment 
(Segment Number T) 


Save numbers 
of Segment 
from (F) and 
Segment to (T) 


MS 2 \ YES 
Set ? - 


Trior to 
termina¬ 
tion for 
\SegmentF 


S' Is there a\ 
termination foe*] 
v Segment F? J 


Set tape handler 
parameter to read 
one block of term¬ 
ination to buffer 


Execute 
Termina- 
V tion j 


NOTE: Last block of 
termination 
returns at ( 3 ). 

All others 
return at ( 2 ) 


/ MT \ 


/ Move N 
'Tape to 
\ Segment 
\ T / 


Set Tape han¬ 
dler parameter 
to Read Label 
Block of Seg¬ 
ment T 


Extract from 
label block the 
number of full 
blocks in Segmeni 
and Preface and 
Set Tape Handler 
Parameter 


Save number 
of blocks 
in Termi¬ 
nation 


Is this the > 
correct Segment? 


Set Entry 
for Pref- 


Set up trans¬ 
fer of par¬ 
tial block 


Print Alarm: 
COMPILER OR 
MACHINE ERROR. 
YOU MAY 
RESTART PROB¬ 
LEM. 


Rewind Object 
Program Tape 
(Servo 1) 


/ StOpNv 
Heady for^ 
Restart at 
Object 
\Loader / 


^ Is there a 
partial block? 


Control Section for Object Program 
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NOTE: B(K)=number of 
blocks in seg¬ 
ment K. 


counts 
ap- 
move 


Set repeat sum¬ 
mation to comput< 
B(F+T )4-B(F +2)+ 

.,.+B(T-l) 


Pick up move 
forward tape 
handler pa - 
rameter 


Stringout Seg¬ 
ment table of 
block counts in 
buffer 


Sum block 
and set up 
propriate 
parameter 




Control Section for Object Program (Cont*) 


















Regions for UNICODE Control 


RE 

ON4274 

Loading address during Initializa¬ 
tion Generation 

RE 

CT5 

Operating address during Object 
Program 

RE 

MT77 

Move tape routine 

RE 

KK142 


RE 

KT161 


RE 

TB166 

Segment table 

RE 

GT210 

Tape handler 

RE 

BU610 

Termination buffer 

RE 

DA77300 

Object Program Loader 

RE 

PR77250 

Flex print routine 
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Object Program Control 




© 


© 



IA 

ON 



MJ 

0 

CT 


0 

30000 

30000 


0 

30000 

30000 


0 

30000 

30000 

CTO 

TP 

0 

A 

1 

n n 

DO 

t 7-wr s-\ 

17 

2 

TO 

A 

CT3 

3 

TP 

30000 

Q 

4 

TV 

Q 

CT52 

5 

QT 

KK13 

A 

6 

LT 

17 

KTl 

7 

QT 

KK14 

A 

10 

LT 

25 

KT2 

11 

MS 

20000 

CT12 

12 

TP 

KTO 

A 

13 

ZJ 

CT14 

CT17 

14 

TP 

KK15 

GTS 

15 

RJ 

GT2 

GTO 

16 

MJ 

0 

BDO 

17 

RJ 

MTO 

MT1 

20 

TP 

KK15 

GT3 

21 

RJ 

GT2 

GTO 

22 

TP 

B02 

A 

23 

EJ 

KT2 

CT25 

24 

MJ 

0 

CT53 

25 

TP 

B04 

A 

26 

AT 

KK3 

GT3 

27 

TV 

TBO 

GT3 

30 

TP 

BU3 

KTO 

31 

TP 

BU6 

CT50 

32 

TP 

KK12 

KT3 

33 

TU 

BU5 

KT3 

34 

TP 

KK16 

A 

35 

AT 

KT3 

CT44 

36 

TV 

BU5 

CT45 

37 

RJ 

GT2 

GTO 

40 

TP 

KT3 

A 

41 

ZJ 

CT42 

CT46 

42 

TP 

KK15 

GT3 

43 

RJ 

GT2 

GTO 

44 

RP 

30000 

CT46 

45 

TP 

BUO 

30000 




} 

} 

} 


} 


} 

} 

} 


Segment from = F 

Segment to = T 

F 2 : Jump to control 


Set up address uf IF command 
IP command—> Q 

Set up exit from Control to segment 
T 

F-2 21 ^ A 

F —> KT1 
T .2l5—> A 
T —> KT2 

Selective stop at end of segment 
Is there a Termination for segment 
F? 

Yes, so read block of Termination 

to buffer and execute. Returns 

at CT14 or CT17 

Move tape to segment T 

Read label block of segment T 

Is this segment T? 

No, so go to print alarm 

Extract information from label 

Set up parameter to read full blocks 

of segment and Preface 

Set KTO to number of blocks in 

Termination 

Set entry for Preface 

Set up partial block word count 


Set up transfer of partial block 

Read full blocks of segment and 
Preface 

Is there a partial block? 

Yes, so read it to buffer 

Transfer partial block to operating 
location 
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© 

46 

TP 

KTO 

A 

\ Is there a Preface for 

segment T 


47 

ZJ 

CT50 

CT51 

I 



50 

RJ 

30000 

30000 

Execute Preface 


© 

51 

MS 

10000 

CT52 

Selective stop before operation of 






segment 


52 

MJ 

0 

30000 

Execute segment T 


® 

53 

TP 

CT60 

PR 3 

1 Print alarm 


54 

RJ 

PR2 

PRO 

1 



55 

EF 

0 

CT57 

Rewind Object Program tape 






(Uniservo 1) 



56 

MS 

0 

DAO 

Stop 



57 

02 

200 

10000 




60 

0 

CT61 

11 

Parameter 



61 

45 

47160 

30715 

Cr f C 0 M P 



62 

14 

11201 

20403 

I L E R A 0 



63 

12 

04073 

01605 

R A M A C H 



64 

14 

06200 

42012 

I N E A E R 



65 

12 

03124 

52503 

R 0 R Cr Y 0 



66 

34 

04073 

02504 

U A M A Y A 



67 

12 

20240 

13012 

R E S T A R 



70 

01 

04151 

20323 

T A P R 0 B 



71 

11 

20074 

55700 

L E M Cr j 



MTO 

MJ 

0 

30000 

Exit 



1 

TP 

KT2 

A 

Entry 



2 

ST 

KTl 

A 

T - F —> A 



3 

ZJ 

MT4 

CT53 

If T = F, go to print alarm 


4 

SJ 

MTS 

MT13 

Is T > F? 



5 

TN 

A 

A 

No, so F - T —> A 



6 

SA 

KKO 

17 

(F - T tl) • 2^5 —^ a 



7 

AT 

KK4 

MT35 

Set up repeat summation 
table 

on Segment 


10 

SP 

KT2 

17 

T . 2!5 _-> a 



11 

TP 

KK2 

KT4 

Pick up move back dummy 


@ 

12 

MJ 

0 

MT20 


- 1) • 2 15 

13 

SS 

KKO 

17 

T > F, so form (T - F 

14 

AT 

KK4 

MT35 

in A 

Set up repeat summation 




15 

TP 

KTl 

A 

F —>A 

(F -FI) 2^ —>A 



16 

SA 

KKO 

17 



17 

TP 

KK1 

KT4 

Pick up move forward dummy 

© 

20 

AT 

KK5 

MT36 

Set to pick up first term 


21 

RP 

30020 

MT23 ] 

- 



22 

TP 

TB1 

BU100 J 

" Segment table—>buffer 



23 

TP 

KK7 

KT3 

Set index 



24 

TP 

KK10 

MT31 


String out 


25 

RP 

20020 

MT27 1 

Position columns 

the block 


26 

LQ 

BU100 

11 ) 


counts of 


27 

TP 

KK6 

o \ 

i 

► the Seg- 
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30 

RP 

30020 

MT32 J 

Mask out columns 

ment Table 

31 

QT 

BU100 

BUO 


to simpli¬ 

32 

RA 

MT31 

KK11 


fy the 

33 

IJ 

KT3 

MT25 

4 columns strung out? . 

summation 

34 

TP 

KK12 

i\ 

rt 



35 

RP 

20000 

MT37 \ 

Add block counts to determine the 

36 

SA 

BUO 

0 J 

number of blocks to move tape 

37 

LA 

A 

25 



40 

AT 

KT4 

GT3 \ 

Add sum of blocks to parameter and 

41 

RJ 

GT2 

GTO J 

move tape to segment T 


42 

MJ 

0 

MTO 

To exit. 


KKO 

0 

0 

1 



1 

30 

1 

0 

Move forward dummy 


2 

40 

1 

0 

Move backward dummy 


3 

50 

1 

30000 

Read forward dummy 


4 

RP 

20000 

MT37 T 

Repeat summation dummies 

5 

SA 

BUO 

0 j 



6 

0 

0 

777 

Segment table column mask 

7 

0 

0 

3 



10 

QT 

BU100 

BUO 



11 

0 

0 

20 



12 

0 

0 

0 



13 

0 

7700 

0 

Segment "from" mask 


14 

0 

77 

0 

Segment "to" mask 


15 

50 

101 

BUO 

Parameter to read one 

block to 





buffer 


16 

RP 

30000 

CT46 

Partial block repeat dummy. 

KTO 

0 

0 

0 

Number of blocks of termination 





(= 0 for F = 0) 


1 

0 

0 

0 

F = segment number "from" 

2 

0 

0 

0 

T = segment number "to 

t« 

3 

0 

0 

0 



4 

0 

0 

0 




CA 

ON 165 
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Object Program Tape Handlers 

Since the 1103A and 1105 Tape Handlers which are put on the Object 
Program Tape by Initialization Generation are the same as those used in the 
Translation Phase, only their regional assignments are shown here. Flow 
charting, coding, and an explanation of them may be found in Section III, 3, a—~ 
Translation Subroutines. 


Object Program Tape Handler Regions 


Length 

370 8 

words 


RE 

1103A 

TG4461 

r > 

Loading address 

J during Initial- \ 

RE 

1105 

TG4461 

' RE 

TH210 

] ization Gener- f 

Ration ) 

’ RE 

TH210 ' 

RE 

WB244 


RE 

RW257 

RE 

WW256 


RE 

RF264 

RE 

RF270 


RE 

RB272 

RE 

IA300 


RE 

IA300 

RE 

RR301 


RE 

EX301 

RE 

RE321 


RE 

WB304 

RE 

RA330 


RE 

WW316 

RE 

RB367 

Operating ad¬ 

RE 

RR330 

RE 

RW377 

dresses during 

RE 

RE346 

RE 

MF404 

Object Program 

RE 

MF411 

RE 

MB415 


RE 

MB422 

RE 

PC417 


RE 

PC424 

RE 

WE 4 40 


RE 

WE445 

RE 

CF451 


RE 

CC456 

RE 

CC464 


RE 

CE516 

RE 

CE524 


RE 

CF534 

RE 

CD547 


RE 

CD547 

RE 

VV557 


RE 

VV557 

RE 

CR565 


RE 

CR564 


Length 

3650 

words 
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VI. PROCESSING PHASE 




VI PROCESSING PHASE 


The Processor uses as input the Op File III for each segment together 
with the library and generated subroutines with their preludes. From this 
input the Processor assembles the required subroutines for each segment. As 
each subroutine is processed, the relatively coded addresses are changed to 


the proper machine coded operating addresses, cross reference call wores are 
replaced by the necessary machine coding to accomplish the cross reference, 
depending on whether the reference is "within a segment” or "from one segment 
to another”. When all the routines for one segment have been processed, the 
segment together with its Preface and Termination is transferred to Uniservo 
tape. This tape, containing all the segments in sequence, is the Object Pro¬ 
gram tape. A more explicit description of the methods used in modifying the 
relative coding follows. 

In the initial stage of the Processor the Op File III for the segment 
to be processed is read from tape into High Speed Storage. When this transfer 
has been completed, the first subroutine is read from the Generated Routines 
Tape into the Tape Image in High Speed Storage. At this point the tape hand¬ 
ling is temporarily suspended and the actual processing begun. The call word 
for the subroutine is checked against those listed in Op File III to deter¬ 
mine if the subroutine is referenced in this particular segment. The word 
following the call word is then checked to see if it has a flag indicating a 
cross reference to another segment. If the call word is listed in the Op File 


C* M O r* rt MA-P AM/VM /»/\ A A 1 1 TiTAMrl I 


III and is not flagged, the subroutine will be processed at this time. If 
the subroutine is not to be processed at this time, the next subroutine will 
be read into the Tape Image and the foregoing procedure repeated. When all 
the generated routines in the segment have been processed, the Fixed Library 
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and Standard Library routines are processed in like manner. 

The first line to be processed in all cases is the entrance line of the 
subroutine. Following the modification of this line, each line subject to 
address modification is processed in order, beginning with the line indicated 
by the line count of the Tape Image. Each relative address is processed de¬ 
pending on the nature of the coding, to obtain the proper machine coded 
address. 

All addresses within the range 01000 through 07777 are modified as 
addresses coded relative to 01000; hence, the corresponding absolute address 
is obtained by subtracting 01000 from the relative address and adding the 
High Speed Storage operating address for the subroutine in which the address 
appears. The High Speed Storage operating address for the routine is obtained 
from the word following the call word for the routine in Op File ITT for the 
segment. All other addresses to be modified are in the form of call words 
(see call word section). 

Call words of the form lOxxx, 20xxx, 60xxx, and 70xxx are unique only 
within the routine in which they appear. The absolute addresses corresponding 
to such call words are obtained by adding the last three digits of the call 
word to the initial High Speed Storage operating address of the constant or 
temporary region associated with the call word. These initial addresses are 
calculated from information in the Prelude of the routine and provided as in¬ 
puts to the Address Modification Subroutine. 

Call words of the form 6lxxx, 63xxx, and 76xxx are modified to obtain 
the corresponding absolute address, by adding the last two digits of the call 
word to the initial High Speed Storage operating address of the Pseudo 
Operation Input Region. The initial address for the Pseudo Operation Input 
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Region is that of the thirteenth xvord of the Termination Buffer, and is 
stored as a constant in this phase. 

Absolute addresses corresponding to call words of the form 62xxx and 
75xxx are obtained by adding the last two digits of the call word to the in¬ 
itial High Speed Storage operating address of the Function Input Region. 

The initial address of this Function Input Region is that of the first word 
of the Termination Buffer and is also stored as a constant in this phase. 

Call words of the form 64xxx, 65xxx, or 66xxx are modified to obtain 
the corresponding absolute address, by adding the last three digits of the 
call word to the initial High Speed Storage operating address for the non- 
subscripted variables of the Object Program. This initial non-subscripted 
variable address is obtained from fixed location 00007. 

Similarly, call words of the form 67xxx are modified to obtain the cor¬ 
responding absolute address by adding the last three digits of the call word 
to the initial High Speed Storage operating address of the Constant Pool for 
the Object Program. This initial Constant Pool address is obtained from fix¬ 
ed location 00010. 

Call words of the form 71xxx are used to reference absolute addresses in 
the range 01000 to 01777 and are modified to obtain the absolute address by 
subtracting 70000 from the call word. 

Those call words which reference another routine are of the form 22xxx, 
23xxx, 24xxx, 25xxx, 26xxx, 27xxx, 4xxxx, 5xxxx and those which reference a 
subscripted variable data array are of the form 77xxx. All such call words 
are considered to be cross-references of the routine, if they appear as ad¬ 
dresses to be modified, and must be in Op File III for the segment. If they 
are not, ALARM 11. COMPILATION INCONSISTENCY (etc.), is typed on the 
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Flexowriter. With one exception, instructions containing call words of this 
type are modified by replacing the call word by the High Speed Storage running 
address of the referenced subroutine or data array. This running address is 
obtained from the word following the call word in Op File ITT. The one ex¬ 
ception in which this method of modifying a cross reference does not apply is 
that in which the cross reference is to another segment. Due to restrictions 
imposed in this system of coding, a reference to another segment occurs only 
as a one way unconditional jump and is modified by replacing the entire line 
of coding by an interpret instruction designed to furnish the Control Section 
with the information necessary to accomplish the desired cross references. 

This interpret instruction is obtained from the word following the call word 
in Op File III. It contains the segment number from which the jump is made, 
the segment number to which the jump is made, and the High Speed Storage run¬ 
ning address in the latter segment. When a reference is made to a line of 
another subroutine other than the entrance line, the line to be modified con¬ 
tains the call word of the referenced subroutine. 

When a reference is made to a line in another subroutine other than the 
first line, the instruction in which the reference is made contains the call 
word of the referenced routine. This instruction is followed by a special 
line of coding of the form 10-xxxxx-xxxxx, called a "ten” line. This "ten" 
line contains the number of the referenced line relative to the first line of 
the referenced routine. This number will be in the same portion of the "ten" 
line, i.e., "u" or "v" address, as the call word in the referencing instruc¬ 
tion. In processing a reference of this type, the call word is modified as 
previously mentioned, to obtain in the referencing instruction, the High Speed 
operating address of the first line of the referenced routine. After both 
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addresses of this instruction have been modified, the contents of the ’’ten” 
line, less the op* code, are added to the instruction to change the High 
Speed Storage address(es) from that of the first line of the referenced 
routine to that of the referenced line within the routine. 

As the lines of a routine are modified, they are accumulated in the 
Tape Image and transferred in groups to locations in the Segment linage on 
drum, corresponding to their High Speed Storage locations during the running 
of the segment in the Object Program. When all the lines subject to address 
modification in the routine, i.e., instructions and relative constants, have 
been processed, the fixed (unmodifiable) constants for the routine are trans¬ 
ferred to consecutive locations in the Segment Image, following the last mod¬ 
ified line of the routine. Words of zeros, equal in number to the temporary 
storage locations required by the routine, follow these constants in the Seg¬ 
ment Image. 

Each generated subroutine and library routine required for the particu¬ 
lar segment is processed in this manner. When all the required routines for a 
segment have been assembled and processed, the entire Segment Image load, in¬ 
cluding the proper Preface, Termination, and segment label block, is trans¬ 
ferred to the output tape to form a segment of the final running program. 

The Generated Routines Tape is then rewound and the UNICODE System Tape and 
Standard Library Tapes are moved back to the beginning of the Fixed Library 
and Standard Library, respectively. The processing of the next segment is 
then begun. 

Each succeeding segment is processed in exactly the same way until all 
the segments have been processed and written on the output tape. This tape, 
containing all the segments of the final running program, is then the Object 
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Program Tape. 

In addition, during the execution of this phase, the Sentence Number 
List is built and stored on drum for use by the Program Listing Phase. 

(See Program Listing for format of this list.) 
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PROCESSOR SETUP BLOCK 


Regional Assignments 



RE 

TH21 


Tape Handier 


RE 

UP421 


Uniprint Routine 


RE 

CK653 


Processor 


RE 

PS 72 30 


Processor Setup Block 




Processor Setup Routine 


IA 

PS 



0 

TP 

15 

6 

Modified Dimension List length to fixed 
location 00006. 

1 

TP 

PS26 

TH3 

Parameter to Tape Handler 

2 

RJ 

TH2 

TH 

Read Processor from Unicode System Tape 
to core. 

3 

TP 

5 

Q 

Library indicators— >Q. 

4 

QJ 

PS 5 

PS 5 

Ignore Fixed Library indicator. 

5 

QJ 

PS 6 

PS10 

Is Standard Library required? 

6 

TP 

PS27 

TH3 

Yes; parameter to Tape Handler. 

7 

RJ 

TH2 

TH 

Move Library Tape backward one block. 

10 

TP 

PS13 

UPS 

Parameter to Uniprint routine 

11 

RJ 

UP2 

UP 

Type: PASS IV. PROCESSING AND ADDRESS 
MODIFICATION. 

12 

MJ 

0 

CK1 

Jump to Processor. 

13 

00 

PS14 

12 

Parameter for typeout. 

14 

01 

01010 

10101 

A A A A A A 

15 

52 

24656 

50134 

P A S S A I 

16 

70 

22010 

10101 

V . A A A A 

17 

01 

52545 

12630 

A P R 0 C E 

20 

65 

65345 

03201 

S S INGA 

21 

24 

50270 

12427 

A N D A A D 

22 

27 

54306 

56501 

D R E S S A 

23 

47 

51273 

43134 

M 0 D I F I 

24 

26 

24663 

45150 

CATION 

25 

22 

77777 

77777 

. 77 77 77 77 77 

26 

50 

00601 

CK 

Parameter to read forward 6 blocks from 
Uniservo 1 

27 

40 

00102 

0 

Parameter to move backward 1 block on 
Uniservo 2 


CA 

PS 30 
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XX 


=> Beginning of subroutine; where XX is regional (RECO) label for routine 



-- 

Explanation 


Exit from subroutine 

Connectors; where X is connector number 

Switch; where "A" is symbol 
Explanatory note; no action implied. 


To Conn. ()\ 


=> Return jump reference (subroutine); where parenthesis enclose the connector number 

to which the reference is made. 



=> Reference to general subroutine which is not part of this phase; where parenthesis 

enclose regional (RECO) label for routine 


Function 

Performed 


=> Operation Box 


Question 


==> Decision Box 


Key to Processor Flow Charts 
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Processor Flow Chart 


Start' 


Get library indicator word Number of library routines in Check op. code of 

„ „ library indicator 

from absolute address 00005 —>problem less one to Temp 22 q —» word 


Set switch 
©to © 


/Is fixed li- > 
brary required? 


■is standard 
library 
required? 


NO Set switch 
1 *CeT) to (h) 


Setup temporaries, tape 
handler codewords and 
limiting values 


Check servo 
indicator 


Setup tape handler codewords Set servo number for object 


for seven servos 


b V W 11 UHIUCi XVI VU Cb I 

YES / ^even servos 

program to 6 in printout text ^-( required 


NO 
















1680 
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Codeword to tape handler to 
read 2 blocks from library 
tape (servo 2) to Tape Image 



To Conn._(70)_ 

Read and count 2 block 
of servo 2 




Is first 
word in Tape 
Image=AALIBA? 



Type: ALARM 7 
COMPILATION INCON 
SISTENCY (etc.) 


(BR) \ 
Rewind tapes 



Box-1 
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Gh 


Octal segment number from 
Temp IOq to "v" of third 
word in segment label block 


Number of lines in Preface 
(Termination) from Temp 7 
to "v" of eighth word in 
segment label block 


Divide number of lines 
in Termination by num¬ 
ber of lines in one 
block (170g), 


'is there a 
partial block 
in Termination? 


Number of full blocks 
in Termination to 
fourth word in segment 
label block 


In segment label block, 
advance number of blocks in 
Termination by one to 
count partial block 


Add [ number of lines of statements 
and routines + 2 from Temp l2g ] + 
[number of lines in Preface] to 
form in Temp 1 the number of lines 
of segment + preface 


Divide number of lines 

in segment + preface by 

number of lines in one 

block (170 ) 
o 


Number of full blocks in 
segment + Preface to fifth 
word in segment label block 
(Bits 21 10 thru 32 1q ) 


Number of lines in partial 
block of segment + Preface 
to "v" of sixth word in 
segment label block 


Add [initial address in running 
segment from Temp 25g ] + [Number of 
lines in segment + preface ] to form 
address of word following preface in 
running segment (Temp 5), 
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Form [address of word following 
Preface from Temp 5] - [Number of 
lines in Preface] to obtain address 
of exit from running Preface in 
"u" of "A" 


Form [address' of word following 
Preface from Temp 5] - [two] to 
obtain address of entrance for 
running Preface in "v M of "A" 


/^Ts number of lines' 
in partial block of 
segment + Preface = 
V zero? 


Form [address of word following Pref¬ 
ace] - [Number of lines in partial 
block of segment + preface] to obtain 
initial address of partial block in 
runninq segment 


Add return jump op. code to addresses 
in "A" to form return jump to execute 
Preface. Store this return jump in 
seventh word of segment label block 


Store number of lines in partial block 
of segment + preface in "u" of sixth 
word in segment label block and initial 
address of partial block in "v" of 
same word 



Fill words 9 thru l20io 
X6W in segment label block 
with Z*s in XS3 


Codeword to tape handler to read 
Op. File III "End of Entry" block 
and Preface (if any) from servo 
5 to File Image 


/ (TH)\ 
Tape handler 


g s first wora\ 
File Image = 

A of"? [End 
entry block?! 


/(BR)\ 
Rewind tapes 


Type: ALARM 10 
COMPILATION INCON¬ 
SISTENCY (etc.) 
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Advance number of lines in segment + 
Preface (Temp 1 ) by 170 q to form total 
number of words in Segment Image to be 
written on tape (i.e. segment label 
block + segment + Preface 


Advance address in Seg¬ 
ment Image by number of |^_ 
words transferred 


Is number of words in Segment Image 
yet to be written on tape (Temp 1) > 
number of words in buffer? (Buffer = 
Tape Image + File Image 

YES 

Transfer full buffer 
load of words from 
Segment Image to bufferl 



_To Conn. (71)_ _ 

(theck count of blocks 
,on object program tape 



Codeword to tape handler 
to write full buffer load 
on object program tape, 
(servo 3 or 6) 


(Til) 

Tape handler 


Decrease number of words in seg 
ment image yet to be written 
(Temp 1) by number of words in 
buffer 


Decrease count of full blocks of 
segment + Preface to be written 
(Temp 2) by number of blocks in 
buffer 


— 1 © 
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Transfer all words yet 
to be written on tape 
from Seqment Image to 
Buffer 


^Is number of 
lines in partial 
block of segment + 
V Preface = zero? . 


Fill remainder 
of partial block 
in buffer with 
Z*s in XS3. 



Return to process 
next segment 


Codeword to Tape Handler to 
write remainder (or all) of 
segment from buffer to object 
program tape. (Servo 3 or 6) 


(TH) N 
Tape Handler 


Codeword to tape handler 
to write Termination from 
File Image to object pro¬ 
gram tape. (Servo 3 or 6) 


Codeword to Tape Handler 
to read Termination, if 
any for segment, from 
servo 5 to File Image 


'Is there a Ter¬ 
mination for 
v segment? 


To_Conn._ (71) 
Check count of 
blocks on object 
\ program tape 


f (TH) 

Tape Handler 
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Codeword to Tape 

/(TH) \ 

Codeword to Tape 

/(TH) \ 

Transfer 360 q words 

Handler to rewind 

J Tape \ 

Handler to rewind 

/ Tape \ 

(2 blocks) of Z*s 

library tape 
(Servo 2) 

^Handler/ 

servo 2 

\ Handley 

in XS3 to buffer 


' (TH)\ 
Tape \ 
Handled 


Codeword to Tape Handler 
to write 2 blocks of Z’s 
from buffer to object pro¬ 
gram tape. (Servo 3 or 6) 


___ X __ 

Codeword to tape handler 
to rewind object program 
tape (Servo 3 or 6) 


Is number of blocks 
to move servo 1 
negative? 


/ (TH)\ Form Jjiumber of blocks servo 1 is 

' Tape \_^ advanced beyond start of fixed librarjj 

^Handler/ ~ L num ^er of blocks in fixed libYoryJ 
\ / to obtain number of blocks to move to 

position servo 1 at beginning of 
ListingPhase setup block _ 

_ & _ 

® N q ^ Is number of blocks ^ YES 

<-to move servo 1 )- 

n. = zero? 


Codeword to Tape Handler to move Servo 
YES^ 1 forward the calculated number of 

* blocks to position it at beginning 
of Listing Phase setup block 

Codeword to Tape Handler to move servo 
1 backward the calculated number of 

* blocks to position it at beginning of 
Listing Phase setup block 


Servo 1 
positioned at 
start of Listi 
Phase setup 
block 



(TH) \ 
Tape 
Handler/ 
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( 28 )-* 


Codeword to Tape Handler to read 
2 label blocks and first block of 
generated routines from generated 
routines tape (servo 4 or 7) to 
Tape Image 

I 


(TH) 
HTape Handler 


Type: ALARM 9 
COMPILATION INCON¬ 
SISTENCY (etc.) 



(BR) 

Rewind tapes' 


NO 


Is first word in second block 
in tape image =ASUBRO ? [Generated 
routines entry label block?] 

YES 


Transfer first block of generated 
routines (includes prelude) from 
third block in tape image to first 
block in tape image 



M29 
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"Is op. code of firsr 
word in tape image 
equal to zero? 



Prelude block of 
next routine is in 
first block of tape 
image 


Number of lines of Prelude 
and routine from "v" of 
first word in Prelude block 
to "v" of Temp 6 


Routine callword from "u" 
of first word in Prelude 
Block to "u" of Temp 4 
and "A” 



No implies end of particular kind of\ Exit 
routines being processed (i.e. end \ / 
of fixed library, standard library, \/ 
or generated routines) 


Preset 
on tape 





/ To Conn. (75) _ \ 

'Routine sentence num- 
\ ber to Sentence Num-/ 
\ ber List / 




/ Flagged cross-reference 

Number of lines of 

/ To Conn.(81) \ 

indicating routine refer- 

Prelude and routine 

^/Calculate block \ 

enced is in another segment. 

from Temp 6 to "A" 

'vcount from line / 

hence not to be processed 

register 

\ count / 

at this time 


Number of blocks of Prel¬ 
ude and routine-1 from 
"A” register to Temp 3 in 
codeword position 


_ Box-9 _ 

/^Is routine callword^ 
in Op. File III for 
this segment? (search 
V ^File Image) _ y 

NO 


/ 'ls word following^\ 
routine callword in Op, 
File III an interpret 
instruction? (i.e. 
\op. code = 148?) 

jr no 

( 33 ) 
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0 - 


Number of blocks of Prel¬ 
ude and routine minus 
one from Temp 2 to "A” 
in codeword position 


Codeword to Tape Handler to read 
one block from current tape (i.e. 
generated routine, standard library, 
or fixed library tape) to Tape Image 


Codeword to Tape Handler to move cur¬ 
rent tape (i.e. generated routine, 
standard library, or fixed library 
tape) forward past routine not in this 
segment 


[mb 


Move tape and count 
k blocks moved 


/ To Conn, (71)_ 

'Read and count one 
\ block of current 
\ tape 


Transfer object program running address 
\ routine to be modified from word 

following routine callword in OP. File 
III to Temp 3 and Input 1 for Address 
Modification Routine 


Number of relative constants 
for routine from third word 
of Prelude to Input 2 for 
Address Modification Routine 


Number of fixed constants 
for routine from third word 
of prelude to Input 3 for 
Address Modification Routine 















Subtract number of fixed temps from 
"A" to form object program running 
address of first fixed temp.;send ad- 
(35)-^*dress to ”A M and Input 4 of Address 
Modification Routine 


Subtract number of fixed constants from 
"A” to form object program running ad¬ 
dress of first fixed constant. Send 
address to "A M and Input 3 of Address 
Modification Routine 


Subtract number of relative constants 
from "A” to form object program running 
address of first relative constant. 

Send address to ’’A” and Input 2 of 
Address Modification Routine 


Address in segment image 
on drum for first word 
of modified routine to 
"v" of Temp 3 


Number of lines subject 
to address modification 
to Temp 1 (counter) 


Setup address of seventh 
line in tape image as 
address of first line 
to be modified 


Setup address of first 
line in tape image as 
address of first modi¬ 
fied line 


Preset current drum image 
address in box 5 to address 
^ lor first word of modified 
routine from "v" of Temp 3 


Set limit for current 
tape image load to 
one block 


Switch 
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Entrance line of library 

/-y 

routine from seventh line of 

/TO Conn (52) \ 

tape image to "Q" register as 

—^Modify line in "Q” \> 

input to Address Modification 

\ register / 

Routine 



Advance address of next line to 
/^\ be modified (Box 3) by number of 
inputs + number of outputs + num¬ 
ber of lines in Library Routine 
heading (3) to skip over these 
without modifying 



Restore modified 
entrance line to 
seventh line of 
.tape image 


Advance address for next 
modified line (Box 4) by num¬ 
ber of inputs +number of out¬ 
puts + number of lines in 
heading (3) of Library Routine 


To Conn. (73) 

Library Routine name td 
Sentence Number List 



Transfer Library 
Routine heading 
to beginning of 
tape image 


45 






















^Has last line in^ 
^current tape image 
Uoad been processed?/ 


_ Box-5 _ 

Transfer modified 
lines from tape image, 
to segment image on 
drum 


Advance segment 
image address by 
number of lines 
transferred (Box 5) 


f ~To Conn. (72)_ \ 

'Read more blocks of 
\ routine to tape image 


./""Rave all lines"''' 
^subject to address 
jnodification been 
processed? 


Preset address for 
next modified line 
(Box 4) to address 
of first line in 
tape image 


Preset address for 
next line to be modi 
fied (Box 3) to ad¬ 
dress of first line 
in tape image 


Number of modified 
lines in tape image 
not yet transferred 
to drum to Temp 4 


( /'ls the number of fixed 
(unmodifiable) constants 
for the routine (Temp 0) 
\equal to zero? ^ 


''Is the number of modi-N, 
fied lines in the tape 
image not yet transferred 
Vfo drum equal to zerojL/ 


Switch 























Is the number of modi¬ 
fied lines not yet trans- 
ferred to segment image 
.equal to zero? 


Advance segment image ad¬ 
dress (Box 5) by the total| 
number of words just 
transferred 




' 

NO 

r 
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Pack fixed constants 
in tape image with 
modified lines in 
tape image 


Obtain segment 
image address 
from Box 5 and 
preset in Box6 

—? 

Transfer fixed constants 
and/or modified lines from 
tape image to segment 
image on drum 


Box-6 


Decrease number of fixed 
constants to be transferred! 
to segment image (Temp 0) 
by number just transferred 


lave all fixed 
constants for \—g 

routine been trans.- 
.ferred to seqment 
imager 



r Is the number of Library' 
Routines processed in this 
segment equal to the total 
number for the problem? 


I N0 


NO 




To Conn._(72)_ 

Read more blocks of 
constants to tape 
image 



Is number of fixed constants 
not yet transferred to segment 
image greater than full tape image 
load? 



YES 


Obtain segment 
image address 
from Box 5 and 
preset in Box 7 




Transfer full tape 
image load of fixed 
constants to segment 
image on drum 


Box-7 


Decrease number of 
fixed constants to be 
transferred (Temp 0) 
by number of words 
in full tape image 
load 


Advance segment image 
address (Box 5) by 
number of words in 
full tape image load 




















Box-8 


Obtain segment 
image address from 
Box 5 and preset 
in Box 8 


1 

Advance segment image address 

■ 

Transfer remaining modified 

■ 

(box 5) by number of words 

■ 

lines or fixed constants 


in tape image to be trans- 


from tape image to segment 

1 

ferred to segment image 


image on drum 


(MR) Address Modification Control Subroutine 

Input = Word to be modified in ”Q" Register 


Word to be modified 
from ”Q” register 
to output line 


'Is op. code of word\ 
to be modified equal 
to 17,22,45,56,61,63, 
75,76,or 77 octal? J 


''Is op. code of wora 
to be modified equal 
to 05,14, or 57 
, octal? 



"u" of word to be 
NO^ modified to "u" 
of "Q" register 


s op. code of^^N^ 
word to be modified 
equal to 31,32,33,34, 
54, or 55 octal? J 


Yes implies only v" 
address to be modified 

Exit / Y es implies neither 


address to be modified 


’V* of word to be 
modified to "u" 
of "Q" register 


To Conn.(56) 
modify "v" 
address 


Yes im p lies only "u" 
address to be modified 




Modified "v” 

ad- 

dress to "v" 

of 

output line 



' To_C ojrin._(5 6_) 

Modify "u" 
address 


Modified "u” ad 
dress to "u" of 
output line 
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(MS) Modify Address Subroutine Input = Address to be modified in "u" of "Q" register 

Output = Modified (absolute) address in "u" of "A" register 
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Modify 

relative 

address 


Modify n. 
relative con¬ 
stant callword 


Subtract IOOOq from 
address relative to 
lOOOg to get loca¬ 
tion within routine 


Add base object program 
running address of routine 
in this segment (Input 1) 
to form absolute address 
in "u" of "A" register 


Subtract IOOOOq 

from 10_callword 

to get location 
within relative 
constant region 


_ ± _ 

Add base object program running 

address of relative constant 
region for routine in this 
segment (Input 2) to form ab¬ 
solute address in "u” of "A" 











1699 
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(LC) Subroutine to count blocks of Library (Fixed or Standard) Processed 



Switch 




v 

Obtain number of blocks of cur¬ 
rent library tape to be read or 
moved forward, from codeword in 
input to Tape Handler 


Add number of blocks to stored 
"move backward" codeword for current 
library tape. Codeword used to 
reposition tape at beginning of 
library 

) * 


Count by-passed when processing generated routines 

- - 51 

f 

5 



(PC) Subroutine to Count Blocks on Object Program Tape 
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(IR) Input Routine 




Mask three least significant 
octal digits from library 
routine callword in Temp 
26 


|Add initial address of Library 
;List to get address in list for 
XS3 name of Library Routine 
lassociated with callword 




NO 


Is XS3 name of 
'Library Routine al¬ 
ready in Library 
List in core? 
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Callword\ 
for routine 
in "u" of "A" 


,/Must be calT^l 
word for pseudo] 

op *, i.e.4-- | 

CW 



callword for 
pseudo op. sentenc 
i.e. 22-CW? 



NO 


Is callword X / Is callword for 
'for equation de- \ NO/equation defining 
fining subscriptedj H non-subscripted 
variable, i.e. J Vvariable, i.e. 

24- V 25-CW? 


YES 


© 


YES 

@ 



Is callword for' 
NO / statement of main 

program, i.e. 26_ 

or 27-CW? 


YES 


© 


YES 


© 
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(BC) Subroutine to calculate block count from line count 
Input = Number of lines in "v" of "A" 

Output = Number of blocks in "v" of "A" 














PROCESSOR REGIONS 


RE 

TN20 

RE 

TH21 

RE 

UP421 

RE 

BR537 

RE 

CK653 

RE 

CL701 

RE 

CM715 

RE 

CN740 

RE 

CP753 

RE 

CQ1004 

RE 

CR1033 

RE 

CS1065 

RE 

CT1117 

RE 

CU1134 

RE 

CV1174 

RE 

CW1226 

RE 

CX1251 

RE 

CY1310 

RE 

CZ1350 

RE 

DA1401 

RE 

LC1424 

RE 

PC1433 

RE 

IR1444 

RE 

NR1460 

RE 

BC1521 

RE 

FC1536 

RE 

RC1570 

RE 

TC1627 

RE 

TL1660 

RE 

T01667 

RE 

LV1712 

RE 

MR1724 

RE 

MS1751 

RE 

MT2001 

RE 

M02040 

RE 

MC2056 

RE 

MD2105 

RE 

MI2131 

RE 

TS2140 


Servo Indicator 
Tape handler 
Oniprint 
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RE 

LL2240 

List of library routine names 

RE 

TI3240 

Tape image 

RE 

FA4200 

File image 

RE 

DD40101 

Modified dimension list 

RE 

ND42102 

Sentence number list 

RE 

D146202 

Segment image on drum 

RE 

IL740 

Number of lines in tape image 

RE 

FL3600 

Number of lines in file image 

RE 

BL4540 

Number of lines in buffer, i.e., 

BL = IL + FL 

RE 

IB4 

Number of blocks in tape image 

RE 

BB24 

Number of blocks in buffer, i.e., 
tape image + file image 

RE 

PB4705 

Limit number of blocks on object 
program tape 

RE 

114200 

Limit address for full image load, 
i.e., II = TI + IL 

RE 

FI610 


RE 

PI624 


RE 

END 

ZA77000 

Entrance to Unicode service routines 


* NOTE: The tape image and file image form the buffer for writing 
the segment on tape; hence, they must be adjacent in memory with the tape 
image appearing first. 
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Processor 



IA 

CK 


o 

MJ 

0 

ZA10 

1 

TP 

5 

Q 

2 

QT 

FC5 

A 

3 

ST 

FC3 

TS22 

4 

QJ 

CK6 yeS 

CK5 n ° 

5 

TV 

RC27 

CM22 

/ 

A T 

yes 

n TS~7 flO 
V/J\ ( 

o 


OIVIU ■ 

7 

TV 

RC31 

CN12 

10 

LA 

LV6 

6 

11 

AT 

TC26 

TC26 

12 

LQ 

LV7 

6 

13 

LQ 

LVll 

6 

14 

TP 

TS22 

TS14 

15 

TP 

FC30 

TSl3 

16 

TP 

12 

Q 

17 

QT 

FC5 

TS25 

20 

RS 

RC17 

TS25 

21 

SP 

TN 

0 

22 

ZJ 

CK23 

CL 

23 

RA 

T06 

FC31 

24 

RP 

20012 

CL 

25 

RA 

TC17 

TN 


CA 

CK26 



Begin Processor 

Exit—=► Unicode Service Routine 
Library Indicator Word —>Q 

# Library routines in problem—>Av 

# Library routines in problem— 
of temp. 

Fixed library required? 

Set switch®— 

Cj__1_I 1 

»-> uuiiucJJL U xjuji ciry ic^uixcut 

Set switch ®-» (£2) 

# blks in buffer —> tape codeword 
position 

Form codeword to write full buffer 
load on object program tape 

# blks in tape image —> codeword 
position 

Limit # blks object program tape 
—>codeword position 

# Library routines - 1—> library 
list index 

Preset count blks. binary tape 
—>Max. # blks. initialization 
Segment image address— > Qv 
Segment image address— > "v” of 
temp 

Drum add. for seg. - Run. add. seg. 
= Drum add. corres. to loc. zero 
Servo layout indicator 
(A) = zero =s>5 servos; (A) f zero 
=> 7 servos 

Set Object program servo # = 6 
—» printout 

Setup tape codewords for 7 servo 
layout 
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IA CL 


0 

TP 

TC14 

TH3 

1 

RJ 

TH2 

TH 

2 

TP 

FA 

A 

3 

EJ 

TL1 

CL6 yeS 

4 

EJ 

TL 

DA 

5 

MJ 

0 

BR12 

6 

RP 

17777 

CLIO 

7 

TP 

FC 

DT 

10 

RP 

17777 

CL12 

11 

TP 

FC 

DI7777 

12 

RP 

17777 

CM 

13 

TP 

FC 

Dll7776 


CA 

CL14 



Read 1 blk. Op. File ITT (servo 5) 
—> File image 

1st word Op. File m image —>A 
1st word = File A 3? Yes=*»entry 
label blk. for new segment 
1st word = zzzzzz? Yes=>End tape 
blk; End processing 
Alarm 10 


Zeroize 277758 word segment image 
on drum to allow for possible 3 
core bank running segment. 
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IA 

CM 


0 

TV 

RCl 

CS31 

1 

TV 

RC32 

CV31 

2 

TV 

RC32 

CW2 

3 

TV 

RC20 

LCl 

4 

TP 

TS22 

TS15 

5 

TP 

TC22 

TS16 

6 

TP 

TC20 

T317 

7 

SP 

LV7 

0 

10 

AT 

TC22 

TS20 

11 

TP 

TC17 

TS21 



12 

RJ 

CR 

CQ 


13 

TP 

TC23 

TH3 


14 

RJ 

TH2 

TH 


15 

TV 

RC24 

CS31 


16 

TV 

RC33 

CV31 


17 

TV 

RC33 

CW2 


20 

TV 

RC21 

LCl 


21 

TV 

RC25 

CR6 

Fixed 

>22 

MJ 

0 

[CN2] 

Library 

Switch 


CA 

CM23 


® j 






Set switch @~->(Dl) 

Set switch®— >®ij 
Set swi t ch U) —»(Ej) 

Set switch©—>(Fl) 

# Library routines in problem 
- 1—»Segment Index 
Set current tape codeword to 
read [n] blks. Gen. tape 
Set current tape codeword to 
read 1 blk. Gen. tape 


Set current tape codeword to 
read full image load Gen. tape 
Set current tape codeword to 
read move forward [n] blks. 
Gen. tape 

Read Op. File III—» image and 
process generated routines 


Rewind generated routine tape 
Set switch ©=» (52) 

Set switch ©—>(E§) 

Set switch (J)->(e2) 

Set switch ©)—>(F2) 

Set switch © —>(C2) 
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IA CN 


© 

0 

TP 

TC2 

TH3 


1 

RJ 

TH2 

TH 


2 

TP 

TC3 

TC2 


3 

TP 

RC22 

LC4 


4 

TP 

TC5 

TS16 


5 

TP 

TC4 

TS17 


6 

SP 

LV7 

0 


7 

AT 

TC5 

TS20 


10 

TP 

TCI 

TS21 


11 

RJ 

CR 

CR27 

Switch] 






12 

MJ 

0 

[CP2] 

J 


CA 

CN13 



Move servo 1 backward to beginning 
of fixed library 
Reset move backward codeword 
—» zero blks. 

Set to count blks fixed library 
processed 

Set current tape codeword to read 
[n] blks fixed library 
Set current tape codeword to read 
1 blk fixed library 

Set current tape codeword to read 
full image load fixed library 
Set current tape codeword to 
move FW [n] blks 
Process fixed library routines 


1710 



IA CP 


© 

0 

mn 

±r 

TS23 

TH3 


1 

RJ 

TH2 

TH 


2 

TP 

TC7 

TS23 


3 

TP 

RC23 

LC4 


4 

TP 

TC12 

TS16 


5 

TP 

TC10 

TS17 


6 

SP 

LV7 

0 


7 

AT 

TC12 

TS20 


10 

TP 

TC6 

TS21 

© 

11 

TP 

TCll 

TH3 

12 

RJ 

LC 

LCl 


13 

TP 

TI 

A 


14 

EJ 

TL4 

CP16 


15 

MJ 

0 

BR7 


16 

RP 

30170 

CP20 1 


17 

TP 

TI170 

TI J 


20 

RJ 

CR 

CR1 

Switch 

L 2l 

MJ 

0 

[CP22] 

® J 

22 

TP 

5 

Q 


23 

QJ 

CP24 yes 

CP25 no 


24 

TV 

RC26 

CM22 


25 

QJ 

CP26 yes 

CP27 no 


26 

TV 

RC30 

CN12 


27 

TV 

CP30 

CP21 


30 

MJ 

0 

CX 



CA 

CP31 



Move baekword library tape 
(servo 2) to library routines 
entry label. 

Reset move backward codeword —> zero 
blks 

Setup to count blks of library tape 
processed 

Set current codeword to read [Nj 
blks library tape 
Set current codeword to read 1 
blk. library tape 

Set current codeword to read full 
image load library tape 
Set current codeword to move [N] 
blks. library tape 

Read 2 blks library tape 

1st word library routines entry 

label —>A 

Label =AAl I BA<A (i.e. library 
tape positioned properly) 

Alarm 7 

Transfer 1st block library routines 
from 2nd blk—»1st block tape image 
Process STANDARD LIBRARY ROUTINES 


Fixed library required? 

Set switch ®—>(jj) after 1st seg¬ 
ment 

Standard library required? 

Set switch®—after 1st seg¬ 
ment 

By-Pass preceding setups after 1st 
segment 
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0 

IA 

SP 

CQ 

FA3 

0 

# words Op. File HI —> Au 

1 

SA 

FC1 

0 

Add j=2 to * words Op. File III to 

2 

TU 

A 

MU2 

form jn 

jn to search Op. File IH —► W RP" 

3 

TU 

A 

CR14 

in Add. mod. rtn. 

jn to search Op. File HI—»”RP M 

4 

TP 

FA6 

TS7 

in processor 

# lines in preface —>"u" of Temp. 

5 

TP 

FA2 

TS10 

Segment No.—»Temp. 

6 

TP 

FA4 

TSl2 

# lines statements and routines + 2 

7 

TP 

FA5 

TSll 

—> Temp. 

Address for *IP M jump to n^xt seg¬ 

10 

SP 

FA3 

25 

ment —>Temp. 

# words Op. File HI—> M v" of A x 

11 

LT 

0 

A 

# words Op. File HI —> A? 

12 

DV 

FC2 

Q 

# words Op. File 3/1700 = # full 

13 

ZJ 

CQ14 yes 

CQ15 no 

blks. Op. File HI 

Is there partial blk? 

14 

RA 

Q 

FC3 

Adv. * blks. by 1 to count partial 

15 

SP 

Q 

25 

block 

# blks. Op. File IH*—> A in tape 

16 

AT 

TC15 

TH3 

codeword position 

Codeword to read [N] blks servo 

17 

RJ 

TH2 

TH 

5 —> tape handler 

Read Op. File III from servo 

20 

TP 

TC21 

TH3 

5—>0p. File HI image 

Codeword to read 3 blks Gen. rtn. 

21 

RJ 

TH2 

TH 

tape (4 or 7) —> tape handler 

Read 2 label blks and 1st blk. gen. 

22 

TP 

TI170 

A 

rtns —> tape image 

1st word of 2nd label blk —> A 

23 

EJ 

TL2 

CQ25 yes 

Label =ASUBRO? (i.e. gen. rtn. 

24 

MJ 

0 

BR11 

tape positioned correctly?) 

Alarm 9 

25 

RP 

30170 

CR1 1 

Trans. 1st blk. gen. rtns. (incl. 

26 

TP 

TI360 

TI J 

prelude,) from 3rd blk. —> 1st blk. 


CA 

CQ27 


tape image 
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IA 

CR 



0 

MJ 

0 

[30000] 


1 

TP 

TI 

Q 


2 

QT 

MC13 

A 


3 

ZJ 

CR no 

CR4 yes 


4 

QT 

FC5 

TS6 


5 

QT 

MC 

TS26 

Switch 

} 6 

RJ 

NR 

[NR17] 

(Q 

J 





7 

TP 

TS6 

A 


10 

RJ 

BC 

BCl 


11 

SS 

FC3 

25 


12 

TP 

A 

TS2 


13 

SP 

TS26 

0 


14 

RP 

C30000] 

CR24 


15 

EJ 

FA 

CR16 


16 

SN 

Q 

17 


17 

SA 

CR14 

0 


20 

SA 

CR15 

0 


21 

TU 

A 

CR22 


22 

TP 

[30000] 

A 


23 

TJ 

MC23 

CS no 

© 

24 

SP 

TS2 

0 


25 

AT 

TS21 

TH3 


26 

RJ 

LC 

LC1 

© 

27 

TP 

TS17 

TH3 


30 

RJ 

LC 

LC1 


31 

MJ 

0 

CR1 



CA 

CR32 



1st word tape image—> Q 
Op. code —> A 

Op. code = 0? No ==>end of fixed 
library, gen. rtns, or lib. rtns. 

# lines prelude and routine —^Temp. 
Routine callword—>Au and Temp. 4 
Sentence number for routine —» sen¬ 
tence number List 

# lines prelude and routine —>Av 

# blks. prelude and routine—>Av 

# blks. prelude and routine-1 —> Au 
in codeword position 

# blks. prelude and routine-1 

—> Temp. 3 in codeword position 
Routine callword —> Au 
No=> move past routine—>lst blk. 
next routine 

Callword in Op. File III? 

-j n f r —> Au 
+r —> Au 

Address of word following callword 

in Op. File HI—> Au 

Address of word following callword 

in Op. File III —NI 

Word following callword—> A 

Word following callword ,l IP M inst? 

(i.e. 14-00000-00000 > (A)?) 

# blks prel. and rtn-1 —>Au in 
codeword position 

Codeword—> move forward [n] blks. 
routine (gen. or lib.) tape 
Move past routine and count blks 
moved 

Codeword to read 1 blk routine 
(prelude blk.)—>G.T.H. 

Read 1st block of next routine 
—> tape image 
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General Setup for Routine Modification 
IA CS 



0 

TP 

A 

Q 


1 

QT 

FC5 

TS3 


2 

LT 

10017 

Mil 


3 

QA 

MC 

MI6 


4 

TP 

TI2 

Q 


5 

QT 

FC4 

TS 


6 

LQ 

Q 

6 


7 

QT 

MC2 

MI2 


10 

LQ 

Q 

11 


11 

QT 

MC2 

MI3 

© 

12 

LQ 

Q 

11 


13 

QT 

MC2 

MI4 


14 

LQ 

Q 

11 


15 

QT 

MC2 

MI5 


16 

SP 

MI6 

0 


17 

ST 

MI5 

MI5 

© 

20 

ST 

MI4 

MI4 


21 

ST 

MI3 

MI3 


22 

ST 

MI2 

MI2 


23 

RA 

TS3 

RC17 


24 

TP 

Til 

TSl 


25 

TP 

RC34 

CO 


26 

TP 

RC3 

C04 


27 

TV 

TS3 

C026 


30 

TP 

LV 

LV2 

Setup 

-31 

MJ 

0 

[30000] 

Switch 

® J 


CA 

CS32 



Word following callword in Op. 

File ITT—>Q 

H.S.S. running add. rtn. to be mod¬ 
ified—>temp 3 

H.S.S. running add. rtn. to be mod¬ 
ified—»input mod. rtn. 

H.S.S. running add. + * lines in 
rtn .—> M u M of temp. 

3rd word or prelude —>Q 

# fixed constants —> temp. 0 in "v” 

# relative constants—>-Qu 

# relative constants—>mod. rtn. 
input 

# fixed constants —»Qu 

# fixed constants—>mod. rtn. input 

# fixed temporaries —>Qu 

# fixed temporaries —>mod. rtn. 
input 

# working temporaries—>Qu 

# working temporaries—>mod. rtn. 
input 

Last address in running rtn. + 1 
—> Au 

Initial running add. working temps 
—> input mod. rtn. 

Initial running add. fixed temps 
—> input mod. rtn. 

Initial running add. fixed constants 
—> input mod. rtn. 

Initial running add. relative con¬ 
stants—> input mod. rtn. 

Form drum image address of modified 

routine —> "v" of temp 3 

No. lines subject to add. mod. 

—> temp 1 (counter 1) 

Preset add. 1st line to be modified 

—> 7th line tape image 

Preset add. for 1st modified line 

—> 1st line tape image 

Preset drum image add. for rtn. to 

be modified 

Set current image limit —» 1 blk. 
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Special Setup For Library Routine Modification 


<§) 


IA 

CT 


0 

TP 

TI6 

r\ 

v 


1 

RJ 

MR 

MRl 


2 

TP 

MI 

TI6 


3 

RA 

TI4 

TI3 


4 

AT 

FC11 

TI4 


c 

u 

AT 

nj. 

rnj 

rrM 

vui 


6 

RS 

TSl 

TI4 


7 

LA 

TI4 

17 


10 

AT 

RCl 

CT13 

© 

11 

RA 

CD 

TI4 

Switch 

f 12 

RJ 

NR 

[NR1] 


13 

[o 

30000 

30000] 


14 

TP 

TI6 

TI 



CA 

CT15 



Entrance line of library rtn. 

—>Add. mod. rtn input 

Modify entrance line 

Modified entrance line —> routine 

heading 

# inputs + # outputs 

# lines in lib. rtn hdg. (3) + ® 
inputs + Jt outputs—> Av 

Adv. add. for next modified line by 

# inputs + # outputs + 3 

Decrease # lines subj. to add.mod. to 
exclude hdg.and inputs and outputs 

# inputs + # outputs + 3 —> Au 
Setup jn of repeat to move hdg. 

—> Beginning tape image 

Adv. add of next line to be modified 
to skip hdg. + inputs + outputs 
Library routine name—>sent. no. 
List 

Move routine heading to beginning 
of tape image 
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Process Lines Of Routine To Be Modified 



0 

IA 

TP 

CD 

[30000] 

Q 


1 

QT 

MCI 3 

A 


2 

EJ 

FC12 

C07 


3 

RJ 

MR 

MR1 


4 

TP 

MI 

[30000] 


5 

RA 

C04 

FC3 


6 

MJ 

0 

C020 

© 

7 

SP 

C04 

0 


10 

EJ 

RC3 

C013 


11 

SS 

FC3 

17 


12 

MJ 

0 

C015 


13 

SP 

C026 

0 


14 

SS 

FC3 

17 


15 

TO 

A 

C017 


16 

RS 

Q 

FC12 


17 

RA 

[30000] 

Q 

© 

20 

RA 

CO 

FC13 

@ 

21 

TJ 

LV2 

C033 no 


22 

RS 

C04 

RC3 


23 

SA 

FC14 

17 


24 

TO 

A 

CD25 


25 

RP 

[30000] 

CD27 


26 

TP 

TI 

[30000] 


27 

RA 

C026 

C04 


30 

RJ 

IR 

IR1 


31 

TP 

RC2 

CO 


32 

TP 

RC3 

C04 

© 

33 

IJ 

TSl 

CO 


34 

SP 

C04 

0 


Line to be modified — >Q 

Op. code of line to be modified 

—» A 

Op. code = 10? ==> increment last 
modified line by (u and v) 

Modify line 

Modified line —> tape image 
1 in ”v" adv. > add. for next mod¬ 
ified line 

Address for next modified line 
—> Av 

Add. next mod. line = 1st line tape 
image? Yes=s>last mod. line on drum 
H.S.S. address last line modified 
— > Au 

Address of line following last mod¬ 
ified line on drum— > Av 
Drum address of last line modified 
Au 

"u" and V* of "10 H line —> Q with 
zero Op. code 

Add contents of M u M and H v" of "lO** 

line —> last modified line 

1 in V* adv. —> address of next 

line to be modified 

Was this last line in current 

image load? 

Determine # modified lines —> Av 
Form jn of repeat to transfer mod¬ 
ified lines —> drum image 
Preset jn of repeat 

Transfer modified lines —> drum 
image 

Adv. add. in drum image by # lines 
transferred 

Read more lines of gen. routine 
—> tape image 

Preset address next line to be 
modified —> 1st line tape image 
Preset address for next modified 
line —> 1st line tape image 
Have all lines subject to address 
modification been processed? 
Address for next modified line in 
tape image—>Av 
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35 

ST 

RC3 

TS4 

36 

SP 

TS 

0 

37 

ZJ 

cv no 

cw yes 


CA 

CU40 



# modified lines not yet trans 
ferred to drum—> temp 
Number of fixed (unmodifiable) 
constants —> Av 

Number fixed constants = zero? 
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IA CV 


© 

0 

SP 

LV2 

0 


1 

ss 

CU 

25 


2 

LT 

0 

A 


3 

TJ 

TS 

CV5 yes 


4 

SP 

TS 

0 


5 

TP 

A 

TS5 


6 

SP 

TS4 

0 


7 

ZJ 

cvio no 

CV20 yeS 


10 

TU 

CU 

CV17 


11 

TV 

CU4 

CV17 


12 

SP 

TS5 

17 1 


13 

AT 

RC4 

CV16 J 


14 

RA 

TS4 

TS5 


15 

TU 

RC2 

CV26 


16 

[RP 

[30000] 

CV22] 1 


17 

TP 

[30000] 

[30000] J 


20 

TP 

1S5 

TS4 


21 

TU 

CU 

CV26 


22 

SP 

TS4 

17 1 

L 


23 

AT 

RC5 

CV25 J 

l 

@ 

24 

TV 

CU26 

CV26 


25 

[RP 

[30000] 

CV27] 1 

► 


26 

TP 

[30000] 

[30000] J 



27 

RA 

CU26 

TS4 


30 

RS 

TS 

TS5 

Switch 

l 31 

ZJ 

CW3 no 

[30000] yeS 

© 

1 

CA 

CV32 



Limit for current image load —> A 
Form # lines in image not processed 
"v" of Ai 

Form # lines in image not processed 
—> Av 

# fixed constants > # lines in 
image not processed? 

# fixed constants (all const, for 
rtn) —>Au 

# fixed constants in image to be 
transferred to drum —> temp. 5 

# modified lines yet to be trans¬ 
ferred to drum —^Au 

# modified lines yet to be trans¬ 
ferred to drum = Zero? 

Preset address for 1st fixed 
constant 

Preset transfer add. for fixed const. 
—> Add. for next mod. line 

Preset jn to pack fixed constants 
with modified lines 

# modified lines + # fixed const. 

= * lines to be trans. to drum 
—> temp. 

Preset Add of 1st line to be trans. 
to drum—^lst line tape image 

Pack fixed constants with modified 

lines in tape image 

Set # lines to be trans. to drum = 

# fixed const, in tape image 
Preset add. of 1st line to be trans. 
to drum—>add. 1st fixed const. 

Preset jn to transfer fixed const, 
and/or modified lines to drum 
Preset next available address in 
drum image 

Transfer fixed constants and/or mod¬ 
ified lines—>drum image 
Advance drum image address by # 
lines transferred 
Decrease # fixed const, to be 
trans. by * just transferred 
All fixed constants for routine 
transferred —> drum image 
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IA CW 



0 

TP 

TS4 

TS 

1 

SP 

TS4 

17 

2 

ZJ 

CW7 no 

[30000] yes 

3 

RJ 

IR 

IR1 

4 

SP 

LV3 

0 

C 

kJ 

T* T 
AO 

T»C 

XU 

run a 

Vy 11 J. 

6 

SP 

TS 

17 

7 

AT 

RC6 

CW12 

10 

TV 

CU26 

CW13 

11 

RA 

CU26 

TS 

12 

[RP 

[.30000] 

CR27] l 

13 

TP 

TI 

[30000] J 

14 

TV 

CD26 

CW20 

15 

RA 

CU26 

LV3 

16 

RS 

TS 

LV3 

17 

RP 

IL30000 

CW3 1 

20 

TP 

TI 

[30000] J 

21 

IJ 

TS15 

CR27 no 

22 

MJ 

0 

CX 


CA 

CW23 



# modified lines yet to be trans¬ 
ferred —> TS 


# Modified lines yet to be trans¬ 
ferred = zero? 


Read more fixed constants from gen. 
tape —> tape image 
# lines full image load—>Au 


^ -2 r£\ A Im D >4- n JL *%. t-» o *-» « 

ixacu uujiotdiao jc; l» t-u uc biciiid. 


>full image load? 


# fixed constants yet to be trans. 


—» Au 


Preset jn of repeat 
Preset available drum image address 
Adv. drum image address by # lines 
to be transferred 


Transfer remaining modified lines 
or fixed constants—> drum image 
Preset avail, drum image address 
Adv. drum image add. by # lines 
full image load 

Reduce # fixed constants by # lines 
full image load 


Transfer full image load fixed 
constants —=► drum image 
All library rtns for problem proc¬ 
essed this segment? 

—> End segment 
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© 

@ 

© 

© 

© 



IA 

CX 



0 

RA 

TSll 

RC17 

Initial add.drum image + add.of 
"IF'jump to next seg. —> temp. 7 

1 

TV 

A 

CX3 

Preset drum image address for "IP” 
instruction 

2 

TP 

FAl 

A 

"IP” Jump to next segment from 2nd 
word Op. File HI —> ”A” 

3 

AT 

FC3 

L30000J Add one to "v” address and transfer 

"IP” to drum image 

4 

TP 

TL5 

TI 

SEGMEN —=► 1st word in segment label 
block 

5 

TP 

TL6 

Til 

TAAAAA~^nd word in segment 
label block 

6 

SP 

TS10 

25 

Octal segment no .—> ”v" of ”A" left 

7 

LT 

0 

TI2 

Octal seg. no .—> "v" of 3rd word 
in seg. label block 

10 

SP 

TS7 

71 

# lines in Preface —> "v" of "A” 
right 

11 

TP 

A 

TI7 

# lines in Preface —> "v” of 8th 
line seg. lab. blk. 

12 

DV 

FC2 

TI3 

# lines in Pref. (termJ/1700 = 
full blks term.—>4th line seg. 
lab. blk. 

13 

ZJ 

CXI4 yeS 

CX15 

110 Is there partial block? 

14 

RA 

TI3 

FC3 

Adv. # blks. Termination by one to 
count partial blk. 

15 

SP 

TI7 

0 

# lines in preface—> Av 

16 

AT 

TS12 

TSl 

# lines in Preface + # lines stmts 
and routines + 2 —>temp 2 

17 

DV 

FC2 

TI4 

£ full blocks segment+Preface 
—> 2nd thru 5th octal digit po¬ 

20 

LQ 

TI4 

25 . 

sitions of 5th line seg. lab. blk. 

21 

TP 

A 

TI5 

* lines partial blk. seg. + Pref. 

—> "v" of 6th line seg. lab. blk. 

22 

TP 

TS25 

A 

Seg. image address—>A 

23 

AT 

TSl 

TS5 

Seg. image add. + # lines seg. + 
Pref. = add. line after Preface 

24 

SS 

TI7 

17 

(A) - # lines Pref. = Pref. Exit 
add. —> Au 

25 

SA 

TS5 

0 

Add. line following Pref. —>Av 

26 

SS 

FC20 

0 

(A) - 2 = Pref. Ent. add. —>Av 

27 

AT 

FC17 

TI6 

”RJ" inst. to execute Preface 

—> 7th line seg. lab. blk. 

30 

SP 

TI5 

17 

w lines partial blk. seg. + Preface 
—> Au 

31 

ZJ 

CX32 no 

CX34 

yes # lines partial blk. seg. + Preface 

=zero? 
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32 

SA 

TQci 

r\ 

KJ 

Address of line following preface 





—> Av 

33 

ST 

TI5 

TI5 

# lines partial blk. seg. + pref. 
in ”u” and H.S.S. part. blk. in M v” 





-^6th line seg. lab. 

34 

TP 

TI4 

TS2 

# full blks. seg. + pref.—=► temp, 
in codeword position 

35 

RP 

10160 

CY 


36 

TP 

TL 

TI10 

Z*s—alines 9-120 of segment label 
blk. 


CA 

CX37 
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©> 

© 

© 

© 


TA CY 


o 

SP 

TI3 

25 

1 

AT 

TCI 5 

TS 

2 

AT 

FC7 

TH3 

3 

RJ 

TH2 

TH 

4 

TP 

FA 

A 

5 

EJ 

TL3 

CY7 

6 

MJ 

0 

BR12 

7 

RA 

TS7 

FC15 

10 

TU 

A 

CY13 

11 

RA 

TS12 

RC35 

12 

TV 

A 

CY14 

13 

RP 

[30000] 

CY15 \ 

14 

TP 

FA170 

[30000] J 

15 

RP 

30170 

CY17 \ 

16 

TP 

TI 

DI J 

17 

RA 

TSl 

FC2 

20 

TO 

RC11 

CY26 

21 

SP 

LV5 

0 

22 

TJ 

TSl 

CZ17 y6S 

23 

SP 

TSl 

17 

24 

AT 

RC7 

CY25 

25 

[RP 

30000 

CY27] 1 

26 

TP 

[30000] 

TI J 

27 

TP 

MC 

Q 

30 

QT 

DI5 

Q 

31 

ZJ 

CY32 no 

CZl yes 

32 

TP 

RC10 

A \ 

33 

ST 

Q 

CY36 J 

34 

TV 

RC3 

CY37 

35 

RA 

CY37 

TSl 

36 

RP 

[30000] 

CZ 

37 

TP 

TL 

[30000] 


CA 

CY40 



# blks. in pref. (term .)— 5 > A in 
codeword position 

Codeword to read Termination from 
tape —> Temp. 

Adv. by 1 to include Op. File III 
end entry blk. 

Read Preface and/or Op. File III 
end entry blk.—> File image 
1st word File image —> A 
1st word = ENDAOF? (i.e. tape posi¬ 
tioned properly) 

Alarm # 10 

Add 30000 to # lines in Preface 
—> Au 

Preset "u" of repeat 

# lines stmts, and rtns + 2 + drum 
add. init. stmt. = drum add. Preface 
Preset drum add. for Preface 

Preface —> Drum image 

Segment label block—>drum image 
Adv. # lines segment by 170 q to 
count label blk. 

# lines in buffer (tape image + 
file image) —>Av 

# lines segment remaining > full 
buffer load? 

Form jn of repeat —> NI 

Segment + seg. label blk.—> buffer 
"u" mask —> Q 

# lines partial blk. seg. + Pref. 

—> Qu and Au 

# lines partial blk. seg. + Pref. 

= zero? 

Form "RP" to fill rest of partial 
blk. with Z*s 

Preset 'V* of "TP” to initial add. 
tape image 

Adv. by 8 lines segment + label 
—> Add. for Z*s in partial blk. 

Z*s—>fill remainder partial block 
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A 

U 

IA 

RA 

CZ 

TS2 

FC7 

Adv. ^ full blkS. Sc y. + Pref. by 

1 

RA 

TS2 

FC7 

1 to count partial block 

Adv. # full blks. seg. + Pref. by 

2 

AT 

TC24 

TH3 

1 to count seg. label block 
Codeword—» tape handler 

3 

RJ 

PC 

PCI 

Adv. and check count of blks. on 

4 

RJ 

TH2 

TH 

Binary program tape 

Write remainder (or all) of segment 

5 

TP 

TS 

Q 

n/i Rinarv nrnnram tnnf> 

6 

TP 

Q 

TH3 

Codeword —> tape 

7 

QT 

FC21 

TS 

# blks. Termination —> A and temp. 

10 

ZJ 

CZll no 

in codeword position 

CZ16 ^ es # blks. Termination = zero? 

11 

RJ 

PC 

PCI 

Adv. and check count of blks. on 

12 

RJ 

TH2 

TH 

Binary program tape 

Read Termination from servo 5 —► 

13 

SP 

TS 

0 

File image 

# blks. Termination— 

14 

AT 

TC25 

TH3 

Codeword —> Tape Handler 

15 

RJ 

TH2 

TH 

Write Termination on Binary Program 

16 

MJ 

0 

CL 

Tape 

—> Process next segment 

17 

TU 

CY26 

CZ21 

Preset drum image add. of next 

20 

RP 

BL30000 

CZ22 ‘ 

buffer load 

I Full buffer load of segment from 

21 

TP 

[30000] 

TI . 

r drum image —> buffer 

22 

RA 

CY26 

LV10 

Adv. drum image add. by * lines 

23 

TP 

TC26 

TH3 

full buffer load 

Codeword to write full buffer load 

24 

RJ 

PC 

PCI 

—> Tape Handler 

Adv. and check count of blks. on 

25 

RJ 

TH2 

TH 

Binary program tape 

Write full buffer load on Binary 

26 

RS 

TSl 

LV5 

program tape 

Decrease # lines segment remaining 

27 

RS 

TS2 

LV6 

by # lines full buffer 

Decrease # full blocks seg. + Pref. 

30 

MJ 

0 

CY21 

by # blocks in buffer 


CA 

CZ31 
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IA DA 


0 

TP 

TC13 

TH3 


1 

RJ 

TH2 

TH 

Rewind library tape (servo #2) 

2 

TP 

TC16 

TH3 


3 

RJ 

TH2 

TH 

Rewind corrected problem tape 
(servo #5) 

4 

RP 

10360 

DA6 \ 


5 

TP 

TL 

TI J 

2 blks. of Z*s —> buffer 

6 

TP 

TC27 

TH3 


7 

RJ 

TH2 

TH 

Write 2 blks. of Z’s on Binary 
program tape 

10 

TP 

TC30 

TH3 


11 

RJ 

TH2 

TH 

Rewind Binary program tape 
(servo * 3 or 6) 

12 

RS 

TC2 

TC3 

* blks. fixed library advanced 

13 

SS 

TC 

DA15 n0 

0 

ck y es 

* blks. adv. - total * blks. fixed 
library 

14 

ZJ 

(A) = Zero? Yes => servo 1 
positioned at listing phase setup 
blk. 




4 * 

15 

SJ 

DA16 " 

DA20 


16 

TN 

A 

A 

* blks. to move forward — >A 

17 

TP 

TCI 

TC3 

Replace move backward codeword 
by move fwd. CW 

20 

AT 

TC3 

TH3 

Move forward or backward codeword 
-> G.T.H. 

21 

RJ 

TH2 

TH 

Position servo 1 at beginning list¬ 
ing phase setup block 

22 

MJ 

0 

CK 



CA 

DA23 
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Subroutine to Count Blocks of Library (Fixed or Standard) Processed 




IA 

LC 



n 

MT 

mu 

r\ 

30000 


' 1 

MJ 

0 

[30000] 

Switch 
® j 





J 

2 

TP 

TH3 

Q 


3 

QT 

FC21 

A 


4 

[o 

30000 

30000] 


5 

RJ 

TH2 

TH 


6 

MJ 

0 

LC 



CA 

LC7 



Tape handler codeword —> Q 
* blks. current routine to be read 
or moved 

Add # blks. to move backward code¬ 
word for current tape 
—> tape handler 
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Subroutine to Count Blocks on Object (Binary) Program Tape 




IA 

PC 



@ 

Switch 

, o 

MJ 

0 

[30000] 


■ 

TP 

TH3 

Q 

Tape handler codeword —> Q 

® J 

I 

2 

QT 

FC16 

A 

* blks. to be written on Binary 
prog, tape —> A 


3 

AT 

TS13 

1S13 

Adv. count of blks. Binary prog 
tape by # blks. to be written 


4 

TJ 

LV11 

PC 

Limit # blks. > current # blks. 
Binary program tape 


5 

TP 

TO 

UP3 

Parameter—> Uniprint 


6 

RJ 

UP2 

UP 

Print warning 


7 

TP 

PC 10 

PCI 



10 

MJ 

0 

PC 




CA 

PC11 
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Input Routine 


IA m 


0 

MJ 

0 

[30000] 


1 

SP 

LV7 

0 


2 

TJ 

1S2 

IR7 yes 

# blks. prelude and routine remain¬ 
ing to be read > * blks. tape 
image? 

3 

SP 

TS2 

0 


A 

Hl 

A m 
HJL 

TSio 

TH3 

Codeword to read [n] blks. current 
routine tape —> tape handler 

5 

RJ 

LC 

LCl 

Read remaining blks. current routine 
—> image 

6 

MJ 

0 

IR12 


7 

TP 

TS20 

TH3 

Codeword to read full image load 
current routine—>tape image 

10 

RJ 

LC 

LCl 

Read full image load current routine 
—> tape image 

11 

RS 

TS2 

LV7 


12 

TP 

LV1 

LV2 

Set current image limit —> * lines 
full image load 

13 

MJ 

CA 

0 

IR14 

IR 
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Subroutine to Build Sentence Number List 


© 


© 


© 


© 

© 

© 

© 

© 



IA 

NR 


0 

MJ 

0 

[30000] 

1 

SP 

TS26 

0 

2 

LT 

22 

Q 

3 

QT 

FC4 

A 

4 

AT 

RC12 

Q 

5 

SP 

A 

17 

6 

TU 

A 

NR10 

7 

TP 

TI5 

A 

10 

EJ 

[30000] 

NR yes 

11 

TV 

Q 

NR12 

12 

TP 

A 

[30000] 

13 

IJ 

TS14 

NR no 

14 

TV 

RC36 

CT12 

15 

RP 

31000 

NR 

16 

TP 

LL 

ND3100 

17 

TJ 

FC24 

NR30 yeS 

20 

TJ 

FC25 

NR32 yes 

21 

TJ 

FC26 

NR34 yeS 

22 

TJ 

FC27 

NR30 yeS 

23 

LT 

17 

Q 

24 

QT 

FC22 

A 

25 

AT 

RCl6 

NR26 

26 

[00 

30000 

30000] 

27 

MJ 

0 

NR 

30 

TP 

RC13 

A 

31 

MJ 

0 

NR35 

32 

TP 

RC14 

A 

33 

MJ 

0 

NR35 

34 

TP 

RC15 

A 

35 

LQ 

Q 

25 

36 

QA 

FC4 

NR 37 

37 

[0 

30000 

30000] 

40 

MJ 

0 

NR 


CA 

NR41 



Library routine callword —> A 


Add. for lib. rtn. name in lib. 
list in core —> Qv 
Add. for lib. rtn. name in lib. 
list in core — >Au 

XS3 library rtn name —»A 
Name in list? 

XS3 library name —> library list 
in core 

Names of all library routines for 
problem in list? 

Set switch©—to by-pass sent, 
no. routine ~ 

Library list in core —> sentence 

no. list on drum 

23000 > CW? Yes pseudo Op. 

sentence 

25000 > CW? Yes =^>subs. var. 
equation (NB —* no routines with 
23™ CW) 

26000 > CW? Yes=> non-subs. var. 
equation 

30000 > CW? Yes => statement of 
main program 
No Pseudo Op. 

Form add. for pseudo op. sent. no. 
XS3 sent, no. for pseudo Op 
—» sent. no. list on drum 

Base add. for 22-—, 26-—, or 
27— CW 

Base add. for 24— CW 

Base add. for 25-CW 

CW —> Qv 

Form add. for sent. no. 

XS3 sent. no. —» list 
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Routine to Calculate Block Count from Line Count 



IA 

BC 


Input = number of lines in of 

m A m ; Output = # blks. in Av 

0 

MJ 

0 

[30000] 

1 

TJ 

FC6 

BC6 yes 

5518 > # lines to be converted? 
(i.e. # blks. < 4?) 

2 

DV 

FC2 

Q no 

* lines /170 8 = # full blks.—> Q 

3 

ZJ 

BC4 yeS 

BC13 no 

Is there partial block? 

4 

RA 

Q 

FC3 

Adv. count of # blks. by 1 to count 
partial blk. 

5 

MJ 

0 

BC 


6 

TP 

FC 

Q 

Zero Q 

7 

TN 

A 

TS24 

Complement of # lines to be con¬ 
verted —>temp. 

10 

RA 

Q 

FC3 

Adv. count of blks. by 1 in "v" 

11 

RA 

TS24 

FC2 

Adv. complement of # of lines by 
170 8 

All blks. counted? 

12 

SJ 

BC10 

BC13 yes 

13 

TP 

Q 

A 

# full blks. —> Av 

14 

MJ 

CA 

0 

BC15 

BC 
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t-*o-^C'aiib.coiOH-*o-^o<Ln ( j^coroi-‘0--ja'ai ( i^(iotoi--' 


Fixed Constants 


IA FC 

OOO 0 

0 20000 0 

0 0 170 

0 0 1 

0 0 777 

0 0 77777 

0 0 551 

0 100 0 

0 0 7 

0 0 3 

10 0 0 

0 1 0 

0 0 30000 

0 30000 0 

0 7700 0 

37 0 0 

0 0 2 

07 77700 0 

0 0 77 

0 50000 0 

0 23000 0 

0 25000 0 

0 26000 0 

0 30000 0 

0 3000 0 

0 0 300 

CA FC32 
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Relative Constants 



IA 

RC 



0 

0 

0 

DI 


1 

RP 

30000 

CU33 

DI in "v" 

2 

TP 

TI 

Q 


3 

TP 

MI 

TI 


4 

RP 

30000 

CV22 


5 

RP 

30000 

CV27 


6 

t> n 

nr 

30000 

CR27 


7 

RP 

30000 

CY27 


10 

RP 

10170 

CZ 


11 

0 

DI 

0 


12 

0 

0 

LL 

Initial address lib. name list in 





core 

13 

TP 

TI5 

ND 


14 

TP 

TI5 

ND1000 


15 

TP 

TI5 

ND2000 


16 

TP 

TI5 

ND3000 


17 

0 

0 

[DI170] 

Chged. by program to drum add. for 





segment — H.S.S. add. for run. 





seg. 

20 

0 

0 

LC5 


21 

0 

0 

LC2 


22 

AT 

TC2 

TC2 


23 

AT 

TS23 

TS23 


24 

0 

0 

CT 

D2 in *V* 

25 

0 

0 

CR7 


26 

0 

0 

CN 

A1 

27 

0 

0 

CN12 

A2 

30 

0 

0 

CP 

B1 

31 

0 

0 

CP21 

B2 

32 

0 

0 

CR27 

El 

33 

0 

0 

CW21 

E2 

34 

TP 

TI6 

Q 


35 

0 

0 

DI170 

Segment image address for first 





statement of segment 

36 

0 

0 

CT13 



CA 

RC37 
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o^O N <LA^coroh-‘©-^0'oi£>.cotoi-'0~40 s cna^co 


Tape Handler Codewords 


IA 

TC 



o[o 

017] 00 

0 

# blocks of fixed library 

3[0 

000]01 

0 

Move forward [n] blocks servo 1 

[4[0 

000]01 

0] 

Move backward codeword with count 
of fixed library advanced 

4[0 

oooloi 

0 

Move backward [n] blks servo 1 

5[0 

00l]01 

TT 

Read forward 1 blk servo 1 

5[0 

000]01 

TT 

Read forward n blks servo 1 

3[0 

000] 02 

0 

Move forward n blks servo 2 

4[0 

000]02 

0 

Move backward n blks servo 2 

5 [0 

001]02 

TI 

Read forward 1 blk servo 2 

5 [0 

002]02 

TI 

Read forward 2 blks servo 2 

5 [0 

000]02 

TI 

Read forward n blks servo 2 

lvO 

000 02 

0 

Rewind servo 2 

5 [0 

001]05 

FA 

Read forward 1 blk servo 5 

5[0 

000]05 

FA 

Read forward n blks servo 5 

lvO 

000 05 

0 

Rewind servo 5 

3[0 

000]04 

0 

Move forward [n ] blks servo 4 or 7 

5 [0 

001]04 

TI 

Read forward 1 blk servo 4 or 7 

5[0 

003] 04 

TI 

Read forward 3 blks servo 4 or 7 

5[0 

000] 04 

TI 

Read forward n blks servo 4 or 7 

1 0 

000 04 

0 

Rewind servo 4 or 7 

7 1 

0f)0] 03 

TI 

Write [n] blks servo 3 or 6 

7 l 

OfX)] 03 

FA 

Write [n] blks servo 3 or 6 

7 1 

000-03 

TI 

Write full buffer servo 3 or 6 

7 1 

o£)2]03 

TI 

Write 2 blks servo 3 or 6 

10 

CA 

000 03 
TC31 

0 

Rewind servo 3 or 6 
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Tape Labels 



T“ A 
lrt 

TL 








0 

74 

74747 

47474 

z 

Z 

Z 

Z 

Z 

Z 

1 

31 

34463 

00106 

F 

I 

L 

E 

A 

3 

2 

01 

65672 

55451 

A 

s 

U 

B 

R 

0 

3 

30 

50270 

15131 

E 

N 

D 

A 

0 

F 

4 

01 

01463 

42501 

A 

A 

L 

I 

B 

A 

5 

65 

30324 

73050 

s 

E 

G 

M 

E 

N 

A 

AA 

m mr» 

i m m 

HP 

A 

A 

A 

A 

A 

V 

uv 

CA 

TL7 

IViWi 

JL 

4—i 

4—1 

Z_A 

4—1 

4—1 
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Typeout 



IA 

TO 








0 

0 

TOl 

22 







1 

71 

24545 

03450 

W 

A 

R 

N 

I 

N 

2 

32 

21010 

15125 

G 

t 

A 

A 

0 

B 

3 

44 

30266 

60152 

J 

E 

c 

T 

A 

P 

4 

54 

51325 

42447 

R 

0 

G 

R 

A 

M 

5 

01 

51500 

16530 

A 

0 

N 

A 

S 

E 

6 

54 

70510 

10601 

R 

V 

0 

A 

3 

A 

7 

71 

34464 

60130 

W 

I 

L 

L 

A 

E 

10 

72 

26303 

02701 

X 

c 

E 

E 

D 

A 

11 

05 

10030 

30125 

2 

5 

0 

0 

A 

B 

12 

46 

51264 

56522 

L 

0 

C 

K 

s 


13 

01 

01246 

66630 

A 

A 

A 

T 

T 

E 

14 

47 

52660 

12530 

M 

p 

T 

A 

B 

E 

15 

34 

50320 

14724 

I 

N 

G 

A 

M 

A 

16 

27 

30016 

65101 

D 

E 

A 

T 

0 

A 

17 

26 

51506 

63450 

C 

0 

N 

T 

I 

N 

20 

67 

30012 

65147 

0 

E 

A 

C 

0 

M 

21 

52 

34462 

46634 

P 

I 

L 

A 

T 

I 

22 

51 

50227 

77777 

0 

N 


77 

77 

77 


CA 

T023 
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Limiting Values 



IA 

LV 



0 

TP 

TI170 

Q 

Limit for 1 blk image load 

1 

TP 

IT 

Q 

Limit for full image load IT = 

TI + IL 

2 

TP 

30000 

Q 

Limit for current image load 

3 

0 

0 

IL 


4 

0 

0 

FL 


5 

0 

0 

BL 


6 

0 

BB 

0 

Shift to codeword position - # blks 
in buffer 

7 

0 

IB 

0 

Shift to codeword position - # blks 
tape image 

10 

0 

BL 

0 

# lines in buffer 

11 

0 

PB 

0 

Limit * blks. Binary prog, tape 
(2501 iq) in codeword position 


CA 

LV12 
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Address Modification Control Subroutine 



IA 

MR 


Input = word to be 

modified in Q 

0 

MJ 

0 

30000 



1 

TP 

Q 

MI 

Word to be modified —> Output line 

2 

QT 

MCI 3 

MI6 

Oper. code of word 

to be modified 





—> temp. 


3 

TP 

MI6 

A 

Oper. code of word 

! to be modified 





—> A 


4 

RP 

20011 

MR6 

Op. code = 17, 22, 

45, 56, 61, 63, 





* 75, 76, or 77=^ only M v" address 

5 

EJ 

MC3 

MR17 . 

1 to be modified 


6 

EJ 

MC22 

MR 

Oper. code = 05? 


7 

EJ 

MC23 

MR 

Oper. code = 14? 

Neither address 

10 

EJ 

MC24 

MR 

Oper. code = 57? , 

to be modified 

11 

TP 

MI 

Q 

H u” of word to be modified —> n u” 





of Q 


12 

RJ 

MS 

MSI 

Modify ”u" address (result in 





"u" of A) 


13 

TU 

A 

MI 

Modified ”u H address —> output line 

14 

TP 

MI6 

A 

Oper. code of word to be modified 





—► A 


15 

RP 

20006 

MR 17 1 

1 Op. code = 31, 32, 

33, 34, 54, or 

16 

EJ 

MCI 4 

MR 

r 55-=^ only "u" address to be mod- 




* 

> ifled. 


17 

SP 

MI 

17 

w v" of word to be modified — >w u H 





of A 


20 

TP 

A 

Q 

"v* of word to be 

modified—> n u" 





of Q 


21 

RJ 

MS 

MSI 

Modify M v" address (result in M u” 





of A) 


22 

LT 

25 

Q 

Modified "v" add.—> "v" of Q 

23 

TV 

Q 

MI 

Modified M v” add.- 

—> "v" of output 

24 

MJ 

0 

MR 




CA 

MR25 
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Modify Address Subroutine 



TA 

MS 



r\ 

w 

MJ 

r\ 

KJ 

30000 


l 

QT 

MC 

A 

Address to be modified —> Au with 
"op* and "v" = zero 

2 

RP 

30024 

MU2 

No => 77-CW. 

3 

TJ 

MD 

MS4 

Search list to determine modifica- 
tion required 

4 

MJ 

0 

MS 

No modification; address< 1000,, 

—» EXIT ° 

5 

MJ 

0 

MT 

Address relative to 10000 (i.e. 
10000 < address < 77770) 

6 

MJ 

0 

MT3 

10- CW ; relative constant 

7 

MJ 

0 

MS 

No modification; 110000 < address 
< 177770 —> EXIT 

10 

MJ 

0 

MT6 

20—— CW; fixed constant 

11 

MJ 

0 

MS 

No modification; 210000 < address 
< 217778 — > EXIT 

12 

MJ 

0 

MU2 

22- 1 23- 1 24-, 25- 1 26- 

or 27-CW 

13 

MJ 

0 

MS 

No modification; 300000 < address 
< 37777 8 -> EXIT 

14 

MJ 

0 

MU 2 

4- t or 5—.— CW. 

15 

MJ 

0 

MTll 

60—~ CW; fixed temporary 

16 

MJ 

0 

MT14 

61-CW 

17 

MJ 

0 

MT20 

62-— CW 

20 

MJ 

0 

MT14 

63-CW 

21 

MJ 

0 

MT24 

64— t 65-, or 66-CW 

22 

MJ 

0 

MT30 

67— CW 

23 

MJ 

0 

MT34 

70— CW 

24 

MJ 

0 

MU 

71-CW 

25 

MJ 

0 

MS 

No modification; 720000 < address 
< 747778EXIT 

26 

MJ 

0 

MT20 

75-CW 

27 

MJ 

CA 

0 

MS30 

MT14 

76-CW 


1737 




IA 

MT 



0 

SS 

MD 

0 

Address relative IOOOq —10000 = 
rel. loc. in rtn. —» Au 

1 

SA 

Mil 

0 

Rel. loc. in rtn. + base running 
add. of rtn. = abs. add. —»Au 

2 

MJ 

0 

MS 


3 

SS 

MDl 

0 

10-*-- CW—100000 = rel. loc. in rel. 
const, reg. —> Au 

4 

SA 

MI2 

0 

Rel. loc. + base running add. rel. 
const, reg. = abs. add.—>Au 

5 

MJ 

0 

MS 


6 

SS 

MD3 

0 

20-CW—200000 = rel. loc. in 

fixed const, reg.—»Au 

7 

SA 

MI3 

0 

Rel. loc. + base running add. fixed 
const, reg. = abs. add.—> Au 

10 

MJ 

0 

MS 


11 

SS 

MD10 

0 

60— CW —600000 = rel. loc. in 
fixed temp. reg. —> Au 

12 

SA 

MI4 

0 

Rel. loc. + base running add. 
fixed temp. reg. = abs. add.—> Au 

13 

MJ 

0 

MS 


14 

TP 

MCI 

Q 

Mask (2 digits of H u w ) —>Q 

15 

QT 

A 

A 

Rel. loc. in pseudo Op. input reg. 

— > Au 

16 

SA 

MC26 

0 

Rel. loc. + base running add. 
pseudo Op. input reg. = abs. 
add. —»Au 

17 

MJ 

0 

MS 


20 

TP 

MCI 

Q 

Mask (2 digits of ”u n ) —> Q 

21 

QT 

A 

A 

Rel. loc. in function input region 
—^ Au 

22 

SA 

MC25 

0 

Rel. loc. + base running add. func¬ 
tion input reg. = abs. add. —> Au 

23 

MJ 

0 

MS 

24 

TP 

MC2 

Q 

Mask (3 digits of n u w ) —> Q 

25 

QT 

A 

A 

Rel. loc. in non-subs. var. region 
—> Au 

26 

SA 

7 

0 

Rel. loc. + base running add. non¬ 
subs. var. region = abs. add. 

—> Au 

27 

MJ 

0 

MS 


30 

ST 

MDl 5 

Q 

67—- CW—670000 = rel. loc. in 
constant pool—>Qu 

31 

SP 

10 

17 

Base running add. constant pool 
—> Au 

32 

SA 

Q 

0 

Rel. loc. + base running add. 
constant pool = abs. add. —> Au 

33 

MJ 

0 

MS 
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70-— CW -700008 = rel. loc. in 
working temporary region —> An 
Rel. loc. + base running add. 
working temp. reg. = abs. add. 
—> Au 
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IA 

MO 



0 

SS 

MD16 

0 

71- CW-700000 = abs. add. —> Au 

1 

MJ 

0 

MS 

2 

RP 

[30000] 

BR13 

No alarm 11 

3 

EJ 

FA 

MU 4 

Callword in Op. File III 

4 

SN 

Q 

17 

- jn + r —>Au 

5 

SA 

M02 

0 

+ r —>Au 

6 

SA 

MU 3 

0 

Address of word following callword 
in Op. File m-»Au 

7 

TO 

A 

MU10 


10 

TP 

[30000] 

A 

Word following callword in Op. 

File III —>A 

11 

TJ 

MC23 

MU14 

(A) = IP (14) command (i.e. flagged 
cross reference)? 

12 

TP 

A 

MI 

IP (14) instruction to reference 
other segment —» output 

13 

MJ 

0 

MR 

Exit from add. modification routine 

14 

SP 

A 

17 

H.S.S. running add. for referenced 
routine —> Au 

15 

MJ 

0 

MS 

Exit 


CA 

MO 16 
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Modification Constants 


TA 


0 0 

1 0 

2 0 

3 17 

4 22 

5 45 

6 56 

7 61 

10 63 

11 75 

12 76 

13 77 

14 31 

15 32 

16 33 

17 34 

20 54 

21 55 

22 05 

23 14 

24 57 

25 0 

26 0 


CA 


77777 0 

77 0 

777 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

FT 0 

PI 0 


MC27 


Base add. function input region 
= init. add. term, buffer 


Base add. 
= 13 . tn 
= 10 


pseudo Op. input region 
add. term, buffer 
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cotoi-'o^joai^iioroi-'o—40cji^cotOh-> 


IA MD 


0 0 1000 0 
0 10000 0 

0 11000 0 

0 20000 0 

0 21000 0 

0 22000 0 

0 30000 0 

0 40000 0 

0 60000 0 

0 61000 0 

0 62000 0 

0 63000 0 

0 64000 0 

0 67000 0 

0 70000 0 

0 71000 0 

0 72000 0 

0 75000 0 

0 76000 0 

0 77000 0 

CA MD24 
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Explanation 

of Modification 

MIO 

[0 

0 

0 ] 

1 

0 

[30000] 

0 

2 

0 

[30000] 

0 

3 

0 

[30000] 

0 

4 

0 

[30000] 

0 

C 

A 

r OAnAr\ 1 

A 

a 

U 

IOUUWJ 

u 

6 

0 

0 

0 


Routine Inputs (MI) 

Outputs modified word 
H.S.S. running address for routine 
Initial running address relative 
constant region 

Initial running address fixed con¬ 
stant region 

Initial running address fixed temp¬ 
orary region 

Initial running address working 

temporary region 

Temp. 
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Explanation of Temporary Storage Region (TS) 


ISO 

0 

0 

30000 

1 

0 

0 

30000 

2 

0 [x 

xxx] 00 

0 

3 

0 

30000 

30000 

4 

0 

0 

30000 

5 

0 

0 

30000 

6 

0 

0 

30000 

7 

0 

30000 

0 

10 

0 

30000 

0 

11 

0 

0 

30000 

12 

0 

0 

30000 

13 

0 [x 

xxx] 00 

0 

14 

0 

0 

[30000] 

15 

0 

0 

[30000] 

16 

50 

000 04 

TI 

17 

50 

001 04 

TI 

20 

50 

004 04 

TI 

21 

30 

000 04 

0 

22 

0 

0 

0 

23 

0 

0 

0 

24 

0 

0 

0 

25 

0 

0 

0 

26 

0 

0 

0 


* fixed constants with rtn. in ’W 
Codeword to read Termination then 

* blks. Term, in codeword position 

* lines subj. add. modification in 
V ; lines in segment in "v” 

* blks. prelude and rtn. - 1 in 
codeword position;& full blks. 

seg. + pref. in position 
Routine callword in "u" W/zero fill; 
H.S.S. running add. rtn. in "v M 
W/zero fill 

* lines to be trans. to drum image 
in M v w 

fixed const, in image to be trans. 
to drum in M v"; Add. following run¬ 
ning Preface in *V* 

* lines prelude and routine in V; 
initial add. running segment in H v" 

* lines in Preface in M u” 

Segment # in ”u H 

Address for H IP M jump to next seg¬ 
ment in V 1 

* lines statements and routines 
(running program) + 2 in M v M 
Count of blks. binary prog, tape in 
codeword position 

Index for count of # library rou¬ 
tine names in library list 
Index for # library routines pro¬ 
cessed in segment 

Codeword to read [n] blks. current 
tape 

Codeword to read 1 blk. current 
tape 

Codeword to read full image load 
current tape 

Codeword to move forward [n] blks. 
current tape 

* library rtns. for problem- 1 in 
V* 

Count of blks. advanced on library 
tape 

Working temp. 

Add. running segment in 'V* 

Routine callword (temp 4) 
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VII. PROGRAM LISTING PHASE 




VII. PROGRAM LISTING PHASE 

The function of this phase is to provide a record of the Object Program 
(absolute computer instructions), produced in response to the sentences of the 
Source Program (pseudo code sentences). The listing gives the absolute in¬ 
structions which make up each segment of the Object Program, together with 
the sentence number or library routine name associated with each group of 
instructions. The instructions are listed four to a line and read from left 

to right, and down, in order of increasing High Speed Storage address. The 

first instruction of a routine, i.e., the group of instructions representing 
one sentence or one library routine, is positioned in the first line, such 
that, each instruction whose octal address ends in zero, will appear in the 

leftmost column of instructions in the listing. Each address ending in 

zero is listed to the left of the associated instruction. The first address 
of a routine is also listed in this column of addresses on the line with the 
first instruction. It is enclosed in parenthesis if it does not end in zero. 

The listing also includes, in the same format as above, the pool of con¬ 
stants for the program, and the preface and termination instructions for 
each segment. The variables for the problem are listed in a different format. 
The symbol for each non-subscripted variable is listed together with its 
assigned High Speed Storage address. Initially, the symbol for each subscript 
ed variable (array) is listed together with the range of drum addresses assign 
ed to the array. In addition, each subscripted variable is listed in each 
segment in which it is referenced, together with the range of High Speed 
Storage addresses assigned to the array for the particular segment. 

The title of the program, the subscripted variables on the drum, the non 
subscripted variables, and the constant pool,are listed first, in that order. 
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Then in turn, each segment of the Object Program is listed. Each segment 
consists of the Preface (if any), the sentences and Library routines, the 
subscripted variables in High Speed Storage (if any), and the Termination 
(if any). 

The listing is produced on magnetic tape edited for listing on the 
High Speed Printer. It is produced on Uniservo 7 if 7 Uniservos are being 
used and on Uniservo 5 if 5 Uniservos are being used. If the listing exceeds 
an arbitrary 1200 blocks, the current listing tape is terminated at the end 
of a page, with the statements, CURRENT LISTING TAPE FULL. PUT NEW 1500 

FOOT TAPE ON SERVO -. START TO CONTINUE LISTING., typed on the on-line 

Flexowriter. This allows the computer operator to change tapes and restart 
to continue the listing on a new tape. In addition, the statements, MOUNT 
NEXT LISTING TAPE ON PRINTER. DO NOT CHANGE POSITION OF PAPER., is included 
on the tape being terminated, together with a Printer Stop symbol. This 
informs the High Speed Printer operator that the listing is continued on 
another tape and allows him to mount the tape and continue. The statement, 
END OF LISTING., and a Printer Stop is included on the final tape of the 
listing to inform the printer operator of the end of the listing. The order 
in which the tapes are to be listed, in order to get a continuous listing, is 
the responsibility of the computer operator. 

When the listing is completed the statements, PROGRAM LISTING ON TAPE 
—-. and END OF COMPILATION., are typed out. The computer then comes to a 
”56" stop. 

The pages of the listing are numbered thru 999, after which the word 
CONTINUED is used in lieu of a page number. 

The instructions of the Program Listing Phase are divided into four 


1748 



groups. All four groups are read from the UNICODE System Tape into High 
Speed Storage; Groups II and III are then transferred to the drum. The in¬ 
structions in Group I remain in High Speed Storage throughout the execution 
of this phase and consist of constants, temporaries and certain subroutines 
referenced by the instructions in the other groups. 

The Group IV instructions produce the initial part of the listing, con¬ 
sisting of the program title, the subscripted variables on the drum, the non- 
subscripted variables, and the constant pool. When this part of the listing 
has been completed, these instructions are overlayed. In listing the sub¬ 
scripted variables on the drum, the information is obtained from the modified 
Dimension List, which contains the initial drum address and XS3 symbol for 
each subscripted variable, in order of increasing drum address. The modified 
Dimension List is assumed to be on the drum when the phase is referenced. In 
listing the non-subscripted variables, the XS3 symbols for the variables are 
obtained from the Symbol List, which contains these symbols in order of the 
increasing High Speed Storage addresses assigned to the variables. The High 
Speed Storage address associated with the first symbol in the list is obtained 
from fixed location 00007; the address for each succeeding variable is obtain¬ 
ed by adding one to the address of the preceding variable. The Symbol List 
is read from Uniservo 5 to the List Buffer in this phase. Similarly, the 
Constant Pool, containing the constants in order of their increasing High 
Speed Storage address, is read from Uniservo 5 to the Dimension List region 
in the core. The High Speed Storage address of the first constant is obtained 
from fixed location 00010 and that of each succeeding constant is obtained by 
adding one to the address of the preceding constant. The program title is 
listed just as it appears pn the UNICODE (source) Program Tape; hence, only 
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printable High Speed Printer characters should be used in the title. 

The Group II instructions, lists, etc., initially overlay the Group IV 
instructions and, thereafter, overlay the Group III instructions and lists. 

The Group II instructions are read from the drum to core whenever a new seg¬ 
ment is to be listed and, finally, when the listing phase is to be terminated. 
The instructions in this group build Op. File IV for the segment to be listed 
and store it on drum; then they are overlayed by the Group HI instructions, 
lists, etc. The information to build Op. File IV is obtained from Op. File 
III for each segment and from the Sentence Number List, which is produced by 
the Processor Phase and stored on the drum as input to this phase. Op. File 

III for each segment is read from Uniservo 5 to the File Buffer. The Group II 
instructions also terminate the final listing tape, rewind all tapes not yet 
rewound, and produce the Flexowriter typeouts at the completion of the phase. 

The Group III instructions produce the listing of the segments. The 
Preface and Termination instructions for the segment to be listed are obtained, 
for listing, from Uniservo 5 following the Op. File III for the segment. The 
Preface is read from Uniservo 5 to the Input Buffer. The initial High Speed 
Storage address for the Preface is obtained from the seventh word of the 
Segment Label Block on the Object Program Tape, and the number of lines in 
the Preface is obtained from the eighth word. With these as inputs, the 
Preface is edited and written on the listing tape in the prescribed format, by 
an editing routine which is common for the Preface, Termination, Constant 
Pool, Sentences, and Library Routines. In listing the sentences and the 
library routines,the number of routines in the segment being listed is obtain¬ 
ed from Temporary (CT5) which is set up by the routine which builds Op. File 

IV for the segment. The XS3 sentence number or library routine name for 
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a routine to be listed, the number of lines in the routine, and the initial 
High Speed Storage address of the routine are obtained from Op. File IV and 
provided as inputs to the common editing routine which edits and writes each 
routine on the listing tape. The sentences and library routines appear in Op. 
File IV in order of increasing High Speed Storage address. The Termination 
is read from Uniservo 5 to the Input Buffer prior to the listing of the sub¬ 
scripted variables in the core. In listing these variables the High Speed 
Storage address, in the segment being listed, is obtained in order, from the 
instructions of the Termination. The modified Dimension List is then search¬ 
ed for the drum address in order to find the XS3 symbol for the variable. 

The variables are then edited and listed in the prescribed format by an edit¬ 
ing routine used in common to list the subscripted variables on the drum and 
in the core. The Termination is listed by sections, each representing one 
block of the Termination. The total number of lines in the Termination is 
obtained from the eighth word of the Segment Label Block. The initial High 
Speed Storage address of each section is merely the initial address of the 
Termination Buffer which is a constant. The number of lines in each section 
is 170 octal except for the last section which is the number of lines in the 
partial block remaining. Again, the common editing routine is used. 

Because of the overlaying involved in the execution of the Program List¬ 
ing Phase, considerable care should be exercised in making changes in the 
addresses or lengths of routines, lists, etc. 
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OP. FILE IV 


Op 

u 

V 


[ XS3 

Sentence 

Number 

] 

00 

I [Number of lines] 

> [H.S.S. 

1 

Address] 

[ XS3 

Sentence 

1 

Number 

i 

00 

! [Number of lines] 

1 

| [H.S.S. 

Address] 

[ XS3 

Sentence 

Number 

] 

00 

\ [ Number of Lines] 

! [H.S.S. 

Address] 


etc. 

[XS3 Library Routine Name ] 

[ 74 J ! [Number of lines] j [H.S.S. Address] 



Where: 


In order of the increasing 
magnitude of the H.S.S. Address 

Entries 


V 

Format of entry for statements, 
equations, and Pseudo Ops. 


Format of entry for Library 
Routines 


Number of lines = The number of instructions, including constants and 

temporaries, in the routine in the Object Program 
associated with the preceding XS3 sentence number or 
name. 

H.S.S. Address = The High Speed Storage running address of the routine 

in this segment of the Object Program. 
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The Op. File IV for each segment is built by the Program Listing 
Phase just prior to the listing of the segment. The information 
for the list is obtained from Op. File III for the segment and from 
the Sentence Number List, 


Entries are made in Op. File IV for only those routines which are 
included in the segment to be listed. Sentence numbers, for which 
a callword appears in Op. File HI followed by an ’'Interpret" in- 

H _ 

JLliO Ui Ul>~ 


e + j v«i»/»+ ** Art 
uui UV/I/XVU 1 


A VO 

QiV 


Ann ■? 4* + ^MA,»vn f\ » IT * 1 a 111 I'L a ^ I ^ 4- ■ 

\S111JL Ul/tU 1J.ULU 1 ilC 111 « IUU 


tion indicates the routine is in another segment but is referenced 
from the segment being listed. 


The Library Routine entries have a 74^ in the Op. code of the second 
word to indicate that they are Library Routine entries. All other 
entries have a 00. 
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Modified Dimension List 



In order of the increasing 
magnitude of the drum address 
entries 


Last entry in list might 

=iooooo 8 . 


Where: 

Drum Address = Initial address of array on drum during running of Object 
Program. 

XS3 symbol = XS3 symbol for subscripted variable (array) to which 
preceding drum address applies. 
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The modified Dimension List is built by a routine which operates 
during the Allocation Setup Phase. Information to build the list 
is obtained from the original Dimension List in the Combination 
List, which is still available at this time. 


Fixed location OOOIO is changed at the time the modified Dimension 
List is built to describe this new list. 


The last entry in the list must always be the address following the 
last address of the last array on drum. If, therefore, the last 
address of the last array were 77777q, the next address would be 
IOOOOOq. Although this is not a legitimate address, in this case 
it would have to be included as the last entry in the list. 
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Sentence Number List 

(ND = Regional Address of List on Drum) 

Op. u v 

ND - Section for sentence numbers associated 
with 26—- f 27—and 22— type call- 
words. (Maximum of 512.^ such callwords) 


NDIOOOq - Section for sentence numbers associat¬ 
ed with 24— type callwords. (Max¬ 
imum of 512 10 such callwords) 


ND2000q - Section for sentence numbers associat¬ 
ed with 25— type callwords. (Max¬ 
imum of 512 ^q such callwords) 


ND3000q - Section for sentence numbers associat¬ 
ed with 4— type callwords. (Max¬ 
imum of 64 ^q such callwords) 


ND3100q - Section for names associated with 
5 ..—- type callwords. (Maximum of 
512 10 such callwords) 
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The Sentence Number List is built by a routine which operates 
during the Processor Phase, where the Prelude of each routine 
is still available. The callword of each routine, and the as¬ 
sociated XS3 sentence number or Library Routine name, are ob¬ 
tained from the Prelude of the routine. 


The entries in each section of the list are stored within the 
section relative to the last three octal digits of the callword, 
except for 4—— and 5———* type cailwords. For the 4xxx - and 
5xx— type cailwords, the digits marked "X" are used. 


The sections of the list always remain at the same relative dis¬ 
tances from the beginning of the list, as shown on the preceding 
diagram; hence the list is always 4100 q locations long. 
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SYMBOL LIST FORMAT 


Op. 

u 


v 

XS3 

SYMBOL 

FOR 

VARIABLE 


XS3 

SYMBOL 

FOR 

VARIABLE 


XS3 

SYMBOL 

FOR 

VARIABLE 

V 


In order of the Increasing H.S.S. Addresses 


Where: 

XS3 SYMBOL = XS3 Symbol for each of the non-subscripted variables of 
the problem 


This list is built and written on Uniservo 5 by routines which 
operate during the ”End of Tape” generation phase. The list 
contains the XS3 symbols for all the functions (66-— callwords), 
floating point non-subscripted variables (65—— callwords), and 
fixed point variables (64-— callwords) of the problem. The 
symbols are in the list in order of the increasing High Speed 
Storage addresses assigned to the variables. 
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Program Listing Phase Setup Block 
Regional Assignments: 


RE TN20 
RE TH21 
RE UP421 
RE FP653 
RE PK2547 
RE LS7230 
RE LT7260 


Setup Block 


0 

IA 

SP 

LS 

TN 

0 


1 

ZJ 

LS2 

LS3 

(A) = zero? ==> 5 servos; (A) 

2 

RA 

LT11 

LS24 

^ 0 => 7 servos 

Adv. servo # in printout by 3 to 

3 

TP 

LT 

UP3 

set obj. prog, tape # = 6 

4 

RJ 

UP2 

UP 

Typeout: COMPUTER CODING PRODUCED 

5 

TP 

LT12 

UP 3 

ON TAPE 3 or 6 

6 

RJ 

UP 2 

UP 

Typeout: IF PROGRAM LISTING IS 

7 

SP 

LS25 

0 

NOT DESIRED, SET A NOT 
= 0. START. 

Set A = 0. 

10 

MS 

0 

LSll 


11 

ZJ 

LS17 

LS12 

Program Listing desired? 

12 

TP 

LS26 

TH3 


13 

RJ 

TH2 

TH 

Read program listing phase from 

14 

TP 

LS27 

TH3 

servo 1 to core 

15 

RJ 

TH2 

TH 

Rewind servo 1 

16 

MJ 

0 

PK 

Jump to program listing phase 

17 

TP 

LS27 

TH3 


20 

RJ 

TH2 

TH 

Rewind servo 1 

21 

TP 

LT25 

UP 3 


22 

RJ 

UP 2 

UP 

Typeout: COMPILATION COMPLETED. 

23 

MS 

0 

LS23 


24 

0 

0 

300 


25 

0 

0 

0 


26 

50 

01201 

FP 

Tape codeword to read listing 

27 

10 

1 

0 

phase to core 

Tape codeword to rewind servo 1 


CA 

LS30 
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^coiot- j O‘-40cn4i.coioH-io-^o s aij^cotoi-‘0-^o , 'ai^cotO(-« 


Listing Setup Typeout 


IA 

0 

LT 

LX1 

11 







01 

01010 

10101 

A 

A 

A 

A 

A 

A 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

01 

26514 

75267 

A 

c 

0 

M 

p 

u 

66 

30540 

12651 

T 

E 

R 

A 

c 

0 

27 

34503 

20152 

D 

I 

N 

G 

A 

p 

54 

51276 

72630 

R 

0 

D 

D 

c 

E 

27 

01515 

00166 

D 

A 

0 

N 

A 

T 

24 

0 

52300 

LT13 

10622 

12 

A 

p 

E 

A 

3 

• 

34 

31015 

25451 

I 

F 

A 

p 

R 

0 

32 

54244 

70146 

G 

R 

A 

M 

A 

L 

34 

65663 

45032 

I 

S 

T 

I 

N 

G 

01 

34650 

15051 

A' 

I 

S 

A 

N 

0 

66 

01273 

06534 

T 

A 

D 

E 

S 

I 

54 

30272 

10165 

R 

E 

D 

f 

A 

S 

30 

66012 

40150 

E 

T 

A 

A 

A 

N 

51 

66017 

60322 

0 

T 

A 

= 

0 


01 

01656 

62454 

A 

A 

s 

T 

A 

R 

66 

0 

22777 

LT26 

77777 

7 

T 

• 

77 

77 

77 

77 

01 

01010 

10101 

A 

A 

A A 

A A 

01 

01010 

10101 

A 

A 

A A 

A 

A 

01 

01010 

10101 

A 

A 

A A 

A A 

01 

26514 

75234 

A 

c 

0 

M 

p 

I 

46 

24663 

45150 

L 

A 

T 

I 

0 

N 

01 

26514 

75246 

A 

C 

0 

M 

p 

L 

30 

CA 

66302 

LT35 

72277 

E 

T 

E 

D 

• 

77 
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/\ 




\ 


\ 


=> Beginning of subroutine: where XX is regional (RECO) label for routine 


\exit/ 

\ / 


-KD 

(x> 



=>Exit from subroutine 


=> Connectors; where X is connector number 



=> Switch; where "A” is symbol for switch and X and Y are connector numbers of different 
paths which may be taken at this point 


Explanation 


Explanatory Note; No action implied* 


To Conn. ( ) N 

Function 
or name 


leturn jump reference (subroutine); where parenthesis enclose the connector number to 

which the reference is made 



Function 

performed 


=> Reference 


=> Operation 


to general subroutine which is not part of 

enclose regional 


Box 


this phase; where parenthesis 
(RECO) label for routine 


Question 


=> Decision Box 


Key to Prpgram Listing Phase Flow Chart 
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Program Listing Phase 
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(§> 


S' Are there sub- 
/scripted variables 
~\i n program? 
\^(Location 00006) 


YES 


Transfer Dimension 
List from drum 
to core 



Setup editing routine (EY) to 
enter heading routine (HV) and 
Dimension List Routine (DS) at 
entrances associated with editing 
of subscripted variables (drum) 



To Conn- (107) 
Edit entries for 
’’subscripted vari¬ 
ables (drum)” 
section and write, 
on listing tape 



To Conru (99) 
Initial ’’Sub¬ 
scripted variables') 
(drum)” section 
heading to output, 
buffer 



Is there a 
constant Pool 
in program? 


m 


Codeword to Tape Handler 
to read Constant Pool from 
corrected problem tape to 
Dimension List region 
(overlay) 


NO 


d> 



(BR) 

'Rewind 

tapes 



d> 


Is first word of Con- 
YES ( stant Pool label block 
CONSTA in XS3? 


.Type: 

NO J ALARM 10 COMPILATION! 
INCONSISTENCY ETC 
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Are there non-sub- 
^scripted variables in 
program? 

Location 00007 


NO 



YES 


Codeword to tape handler 
to read XS3 symbol list 
and/or XS3 symbol list 
label block to list buffer 






Is first word of 
fXS3 symbol list label 
block ’’symbol” in 
XS3? 


(BR y 
Rewind' 
tapes. 


Type: 

ALARM 10. COMPILATION I 
INCONSISTENCY ETC. 


G> 


Preset object program run¬ 
ning address for first 
non-subscripted variable 
minus one in temporary 
(CT)_ 



To_Co_nn._(75A)_ 

New page heading 
blockette to output 
buffer if required, 



©• 


Preset Box 1 to address 
of first non-subscripted 
variable symbol in XS3 
symbol list 

—* 

’’Non-subscripted 
variables” section 
heading blockette 
to output buffer 

/To Conn. 

“mX 


/ Two blockettes \ i 

L 


XS3 space 
\characters to 
\output buffer 


(l> 


Blockette of under¬ 
scores for column 
headings to out¬ 
put buffer 


Blockette of "symbol” and 


Preset Box 2 to 


Set 

index (CT1) to 

"address” column headings, for 


output buffer ad- 


number of variables 

non-subscripted variable 
section, to output buffer. 


dress for as¬ 
sembly blockette 


per 

i.e. 

blockette - 1, 

, to three 


-© 


/To Conn. (2l\ 

/Two blockettes \ /r\ 
"K Of XS3 space 
\ characters to / 
\output buffer/ 
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Box-1 



Box-2 

















Initial object program running 
address of Constant Pool 
(location 00010) to input for 
editing routine (EC) 


Set index (CT2) 
to number of con¬ 
stants in Con¬ 
stant Pool 


Preset Box 9 in edit¬ 
ing routine (ED) to 
input buffer address 
of first constant 


f Is there a 
NO (Constant Pool 
( in program? 



/to_C onn(88 )\ 
/Heading for Con^> 
stant Pool section 
\to output / 
\ buffer / 


Setup editing routine 
(EC) to provide con¬ 
tinued Constant Pool 
headings on new pages 
of listina 


/ To^Conn^_(75A)_\ 
YES/New page heading 
^Ablockette to output 
\ buffer if required 


/ To Conn. (113)\ 
/Edit and write ' 
^Constant Pool sectior 
\ on listing tape / 


/To_C onn .J55, 
/Locate label N 
vblock for first 


running seq- 
v ment / 




<Ls first word 


Is first word > 


of label block inUjQjof label block in 


list buffer equal 
to "ZZZZZZ" in > 


list buffer equal 

, to "SEGMEN" in 
KS 


YES 


@SEGME i n 
XS3 to first seg¬ 
ment number word 
for listing 


Save third thru 
eighth lines of 
label block in 
temporaries 


To Conn. (33)> 
/ Build Op. File 
JV for segment 


ALARM 8. COMPILATION 
INCONSISTENCY ETC. 









Transfer instruction 
group III from drum 
to core 


Obtain segment number 
from third line of 
label block and con¬ 
vert it to XS3 
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io uonn. kidj 


/Page heading block-\ 
'ette with segment num- 
\ber and page number / 
\to output buffer / 


/'is there a "X Codeword to Tape 
preface for thisW H ^^ read Pref- 

V seament 9 / ace from corrected 

V 9 y problem tape to in¬ 

put buffer 


/(ThA Ap_ConrK (91A 

/Tape \ /Headings for > 
Jlandler/Kfreface section 
\ / \ to output / 

\ - / \ buffer / 


Setup editing 
routine (EC) to 
^edit Preface for 
segment 

-- f - 

/ To Conn. (113) \ 
Edit and write \ 
Preface for segment 
v on listing tape / 


/ To Conn, (62)_\ 

/Fill input buffer \ 
\with blocks of segmeny 
\ from object pro- / 
\ gram tape / 


Send number of blocks 
in this segment and 
Preface to input 
buffer routine 
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/Are there more sen¬ 
tences or library rou¬ 
tines in this segment 
to be listed? 


/To Conn, _(75A) \ 

YES /^ ew P a 9 e heading ' 
—-^/blockette to output 
\buffer if required; 


Advance address in 
Box 4 by one to ad¬ 
dress of next entry 
in file list 


/ To Conn. (58) \ 
Fill file list \ 
(core) from op. file) 
IV (drum) and re-/ 
\set Box 4 / 

h YES 

/^End of N _. r 

—M file list? -— 


Box-4 

Obtain next XS3 sentence 
number or library routine 
name from XS3 symbol 
list and store in temp. 


Advance file list ad¬ 
dress in Box 4 by one 
and preset this ad¬ 
dress in Box 5 


Box-5 


Obtain number of lines in sentence or 
library routine, and its running address, 
from word following XS3 symbol in file 
list 


Setup editing rou¬ 
tine (EC) to edit 
sentence or library 
routine 


Number of lines-1 
to index (CT2) and 
running address to 
editing routine 
i (EC) . 


Check sign of word following 
XS3 symbol in file list. (+) 
implies sentence (-) implies 
library routine 


'is routine 
to be edited 
a sentence? 


Sentence num¬ 
ber to stored 
headinq 


/to Conn. (93)\ 
/Headings for \ 
sentence to out-) 
\put buffer / 
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Library routine 
name to stored 
heading 


/To_Conn. (97) 
/Headings for 
^/library routine 
Vto output 
\ buffer 



To Conn. (114) \ 

Edit and write - sen~\ 
tence or library rou-)" 
tine on listing tape/ 



Is there a 
Termination for’ 
this segment?/ 


NO 


.res 

Codeword to Tape 


Transfer Dimen- 

Handler to read Ter- 


sion 

List from 

1 y 

mination from corrected 
problem tape (servo 5) 


core 

to drum 


to input buffer 





| / (TH)\ 

Tape \ 
^Handler/ 


/ To Conn. (75A)\ 
/New page heading \ 
"^/blockette to output ) 
\ buffer if required/ 


Divide number of lines in 


Set index 

(CT2) to 


Setup editing rou- 

termination by two to get 


number of 

subscripted 


tine (EC) to edit 

number of subscripted 


variables 

in this 


subscripted vari- 

variables in this segment 


segment minus one 


ables for segment 



Set section number 
to zero in stored 
termination headings 

> 

> 

t _ 


Setup editing rou¬ 
tine (EC) to edit 
termination for 
segment 




To_Conn.^_64) N 
Locate seg¬ 
ment label block, 
for next seg¬ 
ment 


/ To C onn. (1 00) _ 
/initial "subscripted 
variables (core)"sect 
\ heading blockette t 
\output buffer 


Have all blocks 
of termination for 
this segment been 
edited and listed? 


NO 


'Ho Conn., (113_f 
/Edit and write 
subscripted vari- N 
ables (core) for 
segment on 
.listing tape 


Transfer in¬ 
struction group 
II from drum 
to core 
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Advance section num¬ 
ber by one in stored 
Termination headings 

> 

\ 

i 


'To Conn. (75A) 
New page heading 
v blockette to output 
.buffer if required 


To Conn, (95) 
'Heading s - for - sectiort 
^of Termination to 

output buffer 
-- 



Set index (CT2) to 
number of lines in 
next section of 
Termination - 1 



To Conn (113) 

Edit and write one N 
block (section) of 
Termination on 
listing tape 



"End of listing” 
Blockette with fast 
feed one symbol to 
output buffer 

/ > 

> 

/ 


To Conn, (66) 
Advance output 
^buffer address to 
next blockette, 



To Conn»(69) 
Terminate listin 
tape and rewind 




Codeword to Tape 
Handler to rewind 
object program tape 
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(BF) Subroutine to Build Op. File IV for Segment / (BR)\ 

Codeword to Tape Handler /Rewind 

t0 read one block of °P* \ tapes> 

5F\ file III from servo 5 to \ / 

file buffer f 


/ is first wora\ 
YES/of block equal to > 

-TfileA3"in XS3, i.e. 

V entry label? J 


Type: 

ALARM 10. COMPI¬ 
LATION INCONSISTENCY 
ETC. 


Transfer sen¬ 
tence number 
list from drum 
to core 


Preset initial address of: 
op. file IV (drum), state¬ 
ment buffer (core), rou¬ 
tine buffer (core), routine 
file (drum)_ 


/Cm)\ 
/Tape \ 
^Handler, 


Implies ena 
op. file III 
for this 
segment 


'Is first word oi 
block equal to 
END A OF in XS3? 


Codeword to Tape Handler 
to read one block of op. 
file III from servo 5 to 
file buffer 


Preset Box 6 to 
initial address 
of file buffer 


Box-6 

Obtain next callword 
from op. file III in 
vJ/ * file buffer and ad¬ 
vance buffer address 
by one _ 

XTS 23000 X 
YES | octal greater ] N( 
Cy \than callword?/ 


/"Is callword forN 
subscripted vari¬ 
able equation 
Vi.e. 24-CW? y 



/Is callword for ^ 
non-subscripted 
variable equation, 
Vi.e. 25_CW? J 
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Setup base address for 
subscripted variable 
equation numbers in 
sentence number list 



Setup base address for 
non-subscripted variable 
equation numbers in 
sentence number list 
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Is data word\ 
^following callword \ 
in Op* File III, an J- 
Interpret instruc-y 
tion?_ 


NO 


Obtain last three 
octal digits of 
callword 


Add base address of state¬ 
ments section in sentence 
■number list to get address 
of sentence number 


Yes implies omit from op. file 

IV 

XS3 sentence number as- 


Advance ad- 



sociated with callword from 


dress in state- 

\ 

■Hg 

sentence number list to 

—> 

ment buffer by 


statement buffer 


one 


-® 


Data word from word fol¬ 
lowing callword in op* filej 
III to word following sen¬ 
tence number in statement 
buffer _ _ 


Advance address in 
->| statement buffer by 

one 



45 VNO 


Is statement 
buffer full?} 


YES 


Statement buffer loacll 
(170 q words) to op. 
file IV on drum 


Reset statement 
buffer address 


Advance address in 
Op. file IV by 170 
octal 
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Advance address in 
file buffer by 
one 


Are there more 
callwords in file 
buffer to be proc 1 
essed? 




ADD last three octal digits 
of callword to base address 
to get address of sentence 
number 


No 


(48)<— 


XS3 sentence number as¬ 
sociated with callword 
from sentence number list 
to routine buffer 


47 




Advance address 
in routine buffer 
by one 


Data word from word 
following callword 
in op* file III to 
word following sen~| 
tence number in 
routine buffer 



Is routine 
buffer full? 


YES 


Transfer routine buffer 
load (170 q words) to rou¬ 
tine file on drum 


Advance address in 
"H routine buffer 
by one _ 


0 - 


Advance address in 
routine file by 
170 octal 



Is callword 
all zeros? 


NO 


Must be callworcN^ 
for pseudo op* 
sentence i*e* t 
22- CW 


Reset routine 
buffer address 


*© 


Setup base address of 
statements section in 
sentence number list 


Yes Implies omit from op* file IV 
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Codeword to Tape Handler 

© to read one block op. file 
> III from servo 5 to file 
buffer 



/ (TH)\ 

Tape 

landlei 


/'"Is first 
'word of block 
iequal to ENDAOF 
Vin XS3? y 


Type : 

ALARM 10. COMPILATION 
INCONSISTENCY ETC. 


/TH)\ 
/Tape \ 
\Handler 


Yes 

@ 4 - 


Yes implies end of op. file III for this segment 


ransfer remaining 
entries in statement 


^buffer to op. file 
IV on drum 


Preset index (CT5 
to number of sen¬ 
tences in this 
segment 



r > 

STOP 




Transfer remaining 
entries in routine 
buffer to routine 
file on drum 


Transfer routine file on 
drum to op. file IV on 
drum following entries 
from statement buffer 


(CL) Check label on corrected problem tape 

(i.e., check for UNICODE PROGRAM anywhere in first bloclkette) 


Set index 
to check 
24q words 


Obtain next word from 
first blockette of 
corrected problem 
tape 


NO /Have all words in first >vYES 
=~ \ blockette been checked? ) 


^Is word UNICOD, AUNICO^ 
AAUNIC, CODEAP, ICODEA 
OR NICODE in XS3? 


Type: 

ALARM 10. COMPILA¬ 
TION INCONSISTENCY 
ETC.._ 


YES\ Exit 


f (BR J\ 

Rewind 

Tapes 
















1776 


(LS) Locate segment label block for first segment on object program tape 








(NP) Page Number Routine 


Advance page number 
by one octal 


Reset line count to 
4 for page number 
line 


^AAAAP in XS3 to 
first page number 
word 


AGEA10 in XS3 to 
second page number 
word 


Advance next to last 
digit of page num¬ 
ber by one octal 


Change last digit 
of page number from 
9 to zero in XS3 


iAAAPA in XS3 to 
first page number 
word 


GEA100 in XS3 to 
second page number 
word 


Advance third digit 
from right of page 
number by one octal 


AAACON in XS3 to 
first page number 
word 


Change last two 
digits of page num¬ 
ber from 9 to zero 
in XS3 
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(FR) Op. File III Control Routine 



- 2 / 50 )—> from 
v "—' drum 


Transfer 
op. 
to 
core 


1708 words 
file IV on 
file list 


Advance address in 
->|op. file IV by 1700 
in preceding box 


m 


Preset address of 
XS3 sentence number 
in Box 4 to initial 
laddress in file list 



Entrance for \ 
subscripted vari¬ 
ables (drum)' 


(DS) Dimension List Search Routine 


Box-7 



Drum address for next sub- 


Advance Dimen- 

scripted variable from 


sion List ad- 

Dimension List to first 


dress in Box 

output line 


7 by one 



Modulus for this 
subscripted variable 
to third output line 


XS3 symbol for sub¬ 
scripted variable 
from Dimension List 
to second output line 


_ 1 _ 

Subtract drum address 
for this variable 
from drum address of 
next variable to get 
modulus 


















XS3 symbol for subscripted 
variable from word fol¬ 
lowing drum address in Di¬ 
mension List to second 
[output line 


Subtract drum address of 
this variable from drum 
address of next variable in 
Dimension List to get 
(modulus I 


Modulus for this sub¬ 
scripted variable 
to third output line 


YES /^ s 10000 8 
C V > modulus? 


3 repeat tp*s\ 
in Termination 
for this array 


Is 177778 N. N 0 

>modulus? J 


Advance address in Box 8 [Decrease" 

by 6 to address of next index 

array transferred by * by two 

Termination _ 


2 repeat tp*s\ 
in Termination 
for this array 


Advance address in Box 8 
by 4 to address of next 
array transferred by 
Termination 


Decrease 
index 
by one 


Advance address in Box 8 
by 2 to address of next 
array transferred by 
Termination 















Entrance to read N 
blocks from tape 
to input buffer 


'Is number of blocks of\ 
segment + Preface still on' 
tape greater than or equal 
to full input buffer load^ 


Input buffer routine 
Input line = Number of blocks 
in this segment + preface 


Decrease block count 
in input line by 
number of blocks in 
full input buffer 


/(TH)\ 
/ Tape \ 
.Handler/ 


Codeword to Tape Handler to 
read full buffer load of 
segment from object program 
tape to input buffer 


Codeword to Tape Handler to 
read remaining blocks of 
segment from object program 
tape to input buffer 


/(THA Set input line negative to 
Tape \ indicate all of segment + 
landler/" Preface read to buffer 


Codeword to Tape Handler 
to read label block of next 
segment from object program 
tape to input buffer 


Entrance to lo-\ 
cate label block 
for next segment 


Codeword to Tape Handler to move object 
program tape forward, past remaining 
blocks of Preface and Termination, to 
beginning of next segment 


/(TH)\ 

/ Tape \ 
Handler) 


'Have all blocks of seg- N 
ment + Preface been read 
to input buffer, i.e., 
is input line negative? 


Ygg Codeword to Tape Handler to move object 

_program tape forward, past Termination, 

to beginning of next segment 
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(BB) Subroutine to terminate current listing tape 





Fast feed one symbol and 
’’mount next listing tape 
on printer” to next block- 
ette in output buffer 



To Conn.(66) 
Advance output 
buffer address 
and line count/ 


/fro Conn(69)\ 
'Terminate cur-\ 
(rent listing Y 
\tape and re- / 
wind_/ 


'Reset count of 
blocks on listing 
tape to zero 


To Conn.(68A) 
Fill output buf 
fer with XS3 space 
characters 
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(OC) Output control subroutine 



r Are there more 
items in this sec¬ 
tion to be edited? 
V(index CT2) J 


/To Conn.( 66 )\ 
NO/Advance output^ 
-s/ buffer address 
\ and line / 
\ count / 


Advance exit 
by one to set¬ 
up exit for 
new section 


New section 


f Was this 55th line' 
on sheet or beyond 
^ when new section 
V . next? _ 

1 YES 

I Set switch 


® to (77) 


/Wasthis' 
'last entry in 
.blockette? 

V (index CTlL 


/Fo Conn. (66 a 
'A dvance output\ 
buffer address, 
\and line / 
\ count / 


' Was this 63rd line on N 
sheet or beyond when same 
V section next? y 


Advance exit 
YES^ by one to set¬ 
up exit for 
new sheet 


Same blockette-same sheet 


/To Conn (75A --- 

4Jew page head\ N sheet \ Exit 
ing blockette V 1 —- - L -/ 
k to output / \ / 

\ buffer / v 


Advance exit by 

three to exit for New blockette-same sheet 

new blockette - - 

same sheet 


/To Conn ( 66 A 
' Advance out-\ 
put buffer ad¬ 
dress and line/ 
\ count / 


/To Conn. ( 66 A 
/Advance out¬ 
put buffer ad- 
\dress and line 
\ count / 


\Exit 


New section 














(OD) Page Heading Control Subroutine 




/ To Conn, (66\ /To Conn.(66\ /To Conn>(66\ 

Advance output\/ Advance output/ Advance outpur 
puffer address / \buffer address /Nbuffer address * 
\ and line / \ and line / \and line / 

\ count / \ count / \ count / 














1785 


(CA) Convert octal address to XS3 

Input = Octal address Output = XS3 address 


a /To Co nn» (84 

/Convert octal 

/CA to 



XS3 address, packed 
left with octal zeros 
on right to fill, 
to first output line 




o Conn.(84 
Convert - Dotal 
address to 
XS3 

\ 



XS3 address, 
packed right with| 
octal zeros on 
left, to first 
output line 






o Co nn.(8 4 
Convert octal 
address to 
XS3 



Add close 
parenthesis 
following XS3 
address 


XS3 address with 
close parenthesis 
on right to first 
output line 


Open XS3 paren¬ 
thesis to right of 
second output line 
with zero octal 
fill on left 
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(CW) Convert Octal word to XS3 

Input - octal computer word First output line = op* code in XS3 

Second output line = "u" address in XS3 
Third output line = "v" address in XS3 
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(HC) Heading Routine for Constant Pool, Preface, Sentence, Library Routine, and Termination Sections 



90 W 


Setup for section 
heading for Con- 

89)—H 

stant Pool con¬ 
tinued on new page] 
of listing 

JL 


CONSTANT A POOL—CONTINUED 
in XS3 to section 
heading blockette in out¬ 
put buffer 



To Conn» (74)_ 

Advance output buf 
fer address by 50 
octal and line 
count by 1 



ADDRESS in XS3 to| 
column heading 
blockette in out¬ 
put buffer 


To» Conn, (66T 
'Advance output buf 
^fer address by 24 
voctal and line 
spount by 1 



Underscores 
’’address” to 
blockette in 
put buffer 

for 

next 

out- 

_5 

i 



/ ip bonn, (74y_ 

/Advance output buf' 
\fer address by 50 
\octal and line 
\count by 1 




Setup for 
initial section 

■ 

PREFACE in XS3 



Setup for section 

■ 

PREFACE--CONTINUED 


to section heading 


1 

heading for Preface 

■ 

in XS3 to section 

heading for 


blockette in out- 

WmMr\ 

continued on new 


heading blockette 

preface 


put buffer 


page of listing 


in output buffer 














Setup for 
initial sec¬ 
tion heading 
for preface 

—> 

SENTENCE NUMBER_ 

in XS3 to section 
heading blockette 
in output buffer 




Setup for 
initial sec¬ 
tion heading 
for termina¬ 
tion 




Setup for sec¬ 
tion heading for 
sentence contin¬ 
ued on new page 
of listing 


SENTENCE NUMBER — 

CONTINUED in XS3 to sec¬ 
tion heading blockette —K/y 
in output buffer 


TERMINATION in 


Setup for section 


XS3 to section 


heading for Ter- 


heading blockette 
in output buffer 

mination con¬ 
tinued on new 
Daae of listina 



TERMINATION — CONTINUED 
in XS3 to section head¬ 
ing blockette in output 
buffer 




Setup for 
initial sec¬ 
tion heading 
for library 
routine 


LIBRARY ROUTINE_ 

in XS3 to section 
heading blockette 
in output buffer 


Setup for sec¬ 
tion heading for 
library routine 
continued on new 
age of listin 


LIBRARY ROUTINE _ ~ 

CONTINUED in XS3 to sec¬ 
tion heading blockette 
in output buffer 


(HV) Heading routine for subscripted variables 


Setup for initial 
section heading 
for subscripted 
variables (drum) 


Setup for ini¬ 
tial section 
heading for sub¬ 
scripted vari¬ 
ables (core) 


SUBSCRIPTED VARIABLES rdruri 

[corej 

in XS3 to section heading I 
blockette in output buffer 


Setup for section heading 
for subscripted variables 
(drum) continued on new 
page of listing 


Setup for section heading 
for subscripted variables 
(core) continued on new 
page of listing 


_ i _ 

SUBSCRIPTED VARIABLES [drum! 

I core] 

—CONTINUED in XS3 to sec¬ 
tion heading blockette in 
output buffer_ 
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To Conn.(74. 
Two XS3 space 
blockettes to 
output buffer 


"Symbol" and "addresses" 

/To Conn. (66X 

Underscores for subscripted 

column headings for sub- 

/ Advance out-\ 

variable column headings 

scripted variables to next 

"K put buffer ad-y > 

to next blockette in output 

blockette in output buffer 

\ dress and / 

\ line count/ 

buffer 




o Conn.(74 
Two XS3 space? 
blockettes to 
output buffer 




(EV) Edit Subscripted Variables (Drum or Core) and Write on Listing Tape 



Setup output 


Preset index (CT1) 


buffer address 


to number of variables 


for assembly 

—> 

per blockette minus 


blockette 


one, i.e. three 


Advance assembly blockette 
address to address for 
next subscripted variable 
symbol 



i _ 

\ 



drum To Conn.(60) 

for _core_ 

^mension List 
routine 



Initial address for array 
from first output line of 
"Dimension List routine to 
input of conversion routine 
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^/To Co_nn._ _(8_1 

Convert octal 
\ address to 
\ XS3 


Store XS3 address 
packed to right, in 
assembly blockette 
in output buffer 


Obtain modulus for 
array from third 
output line of Di¬ 
mension List routine 


Add modulus of array 
to initial address to 
obtain last address 
of array 


Last drum address for 
array to input of 
conversion routine 


/To_ Conn^S^ > 
^Convert octal 
address to 
\ XS3 


Advance as¬ 
sembly block- 
’ette address 


Store XS3 address, 
with hyphen on left* 
in assembly blockette 
in output buffer 


/——-vSame blockette-same sheet 

/ To V- - 

'Onn. (71A 

__ _ __\ New section 

Output 

control ^/New blockette-new sheet 
, / New blockette-same sheet 


/To Conn.(102) for drums 
/To Conn.(103) _for_core _ 
Section heading for con¬ 
tinuation on new sheet 
\to output buffer / 
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(EC) Edit octal coding or constants and write on listing tape 

Input - Initial object program running address of section to be edited 



Entrance to edit \ 
Constant Pool, Pref¬ 
ace and Termination 


Setup to by-pass 
input buffer checkl 



Entrance to Edit^ 
Sentences and 
Library Routines 


Setup to make in* 
put buffer check 


—>(ll5)-> 


Setup output 
buffer address 
for assembly 
blockette 


Set address counter (CT15) 
to initial running address 
of section to be edited 


—>(ll6) 


(U6)—* 


Transfer initial running ad¬ 
dress of section to be edited 
from input line to input of 
conversion routine 


/ T iL C° nn » (83)_ _ 
/Convert octal ad- 
\dress to XS3 and 
\enclose in paren- 
\ thesis 

Tn<5 



s octal digit 
of initial address 
equal to zero? 



Store XS3 
address in 
output buffer 


To Conn. (00) 
YES/tonvert octal ad- 
ress to XS3 without, 
parenthesis 
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Is last octal 
''digit of initial 
address less than 
four? 



YES 


Set index (CT4) to 
zero to indicate next| 
■=*jline in listing 
requires address 


Set index (CT4) to 
one to indicate next 
line in listing does 
not require address 


Subtract four 
from last octal 
"^digit of initialf 
address 


Is ret¬ 
raining last 
\digit less than^ 
three?_ 

NO 


YES 


Advance assembly blockette 
address in Box 10 to pre- 
set for last entry in “ 
blockette ' 



Preset index (CT1) 
for one entry in 
blockette 



Is remaining'' 
last digit less\N0 
than two? 


YES 


f Is remain¬ 
ing last digit \_5ES 
less than one? 


NO 


Advance assembly blockette 
address in Box 10 to pre¬ 
set for second entry in 
blockette 


Preset index (CT1)| 
for three entries 
in blockette 


Advance assembly blockette] 
address in Box 10 to pre¬ 
set for last entry in 
Iblockette 


Preset index 
(CT1) for two 
entries in 
blockette 


123 


©-* 


Decrease assembly block¬ 
ette address in Box 10 to 
preset for first entry 
in blockette 




Advance input buffer ad¬ 
dress in Box 9 to address 
of next octal word to be 
converted 

r 
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By-pass if Editing Constant Pool, Preface, or Terminate 
--- r 


''End of in¬ 
put buffer? 


/To Conn \ 

YES /_ J62J_ 

—ja/Fill input 
V buffer 
Vrom tape/ 


Reset input buf- 
fer address in 
■Box 9 to initial 
address 


Box-9 


Next octal word in 
input buffer to 
input of conversion 
routine 


/To £omu __ 

Convert octal 
word to three 
words in XS3 


Box-10 

Transfer three word XS3 
entry from output of con¬ 
version routine to assembly 
blockette in output buffer 


\ Same blockette - same sheet ^ 2^ 
__ section ^ xit/^ 

Output ) V 

control /New blockette - new sheet 

^/New blockette - same sheet 


/is address required 
for next line of listing? 
(check index CT4) , 


Advance address 
counter (CT15) 
by 10 octal 


/iAre last two octal \ 
digits of address equal 
< to zero? 


/To_Co nn, (66/ 
XS3 space 
blockette to 

v output buf- 
\ fer 


/To_Conn, (66- 
aS 3 space 
blockette to 
\ output buf- 
\ fer 
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/^Was second space" 
/ blockette 63rd line 
on listing sheet or 
V beyond? 


NO 


To Conn. (75)__ 

YES /New page heading block 
ette to output buffer 
^and reset line count 



To Conn. (89),(92),(94), 

_(%)_ or_(98)_ 

Section heading, for continu* 
ation of section on new page 
of listing, to output buffer 





To Conn. (89),_(92_), (94)_,__ 
_(96} j_or_(98)._l SectTon head 
ing, for continuation of sec¬ 
tion on new page of listing 
to output buffer _ 



Is address required 
for next line of listing 
(Check index CT4) 

_ ' 


NO 



YES 
- >\ 


Advance address 
counter (CT15) 
by 10 octal 
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(ES) Edit XS3 Variable Symbol for Octal 77*s 

Input = XS3 symbol packed left with octal 77 fill 
Output = XS3 symbol packed right with octal zero fill 










Program Listing Phase Regions 


Group I 


Group IT 


Group III 


Group IV 


RE 

BR537 

Alarm routine 

RE 

TH21 

Tape handler 

RE 

UP421 

Uniprint routine 

RE 

EP540 

= BR1 Alarm 1 

RE 

WP551 

E BR12 Alarm 10 

RE 

WQ551 

= BR12 Alarm 10 

RE 

WV547 

E BRIO Alarm 8 

RE 

YP551 

E BR12 Alarm 10 

RE 

YQ551 

E BR12 Alarm 10 

RE 

YV551 

E BR12 Alarm 10 

RE 

ZP547 

E BRIO Alarm 8 

RE 

FP653 


RE 

TL732 


RE 

TC746 


RE 

XS772 


RE 

XT1072 


RE 

FC1146 


RE 

RC1252 


RE 

CT1316 


RE 

OD1342 


RE 

NP1363 


RE 

BA1415 


RE 

BB1432 


RE 

PP1452 


RE 

PT1467 


RE 

BF1510 


RE 

BG1611 


RE 

PQ1672 


RE 

PR1725 


RE 

PS1770 


RE 

EV2030 


RE 

EC2064 


RE 

ED2125 


RE 

EF2177 


RE 

FR2203 


RE 

IR2211 


RE 

DS2241 


RE 

0C2311 


RE 

BD2335 


RE 

HV2352 


RE 

HC2407 


RE 

CA2470 


RE 

CW2521 


RE 

PK2547 


RE 

PL2565 


RE 

PM2625 
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RE 

PN2660 


RE 

P02741 


RE 

CL2756 


RE 

LS2767 


RE 

ES300G 


RE 

LB3327 

List Buffer 

RE 

DL5037 

Modified Dimension list in core 

RE 

0B7040 

Output buffer 

RE 

FB2170 

File buffer 

RE 

SB2360 

Statement buffer 

RE 

RB2550 

Routine buffer 

RE 

NL2740 

Sentence number list in core 

RE 

FL2557 

Op. File IV list in core 

RE 

IB2747 

Input buffer 

RE 

DD40101 

Modified Dimension list on drum 

RE 

ND42102 

Sentence number 

RE 

FD46202 

Op. File IV on drum 

RE 

RF47202 

Routine file for Op. File IV 

RE 

DQ52472 

Group III instructions on drum 

RE 

ZZ655 

Length of Group III 

RE 

DP53400 

Group II instructions on drum 

RE 

YY220 

Length of Group II 

RE 

TB610 

Initial address of termination 
buffer 

RE 

BL2260 

Listing tape block limit 
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Memory Layout 


GP. I 


GP. II 


GP. IH 


TH 21 

GP. IV 

PK2547 

400 


PL2565 

OP 421 


PM2625 

216 


PN2660 

EP 537 


P02741 

CL2756 

FP 653 

TL 732 


152767 

ES3000 

TC 746 



XS 772 

GP. IV 

LB3327 

XT1072 

(Lists & 

1510 

FC1146 

buffers) DL5037 

RC1252 

CT1316 


2001 

0D1342 


0B7040 

NP1363 


740 

BA1415 

BB1432 


10000 


GP. II 

FB2170 


(Lists & 

170 


buffers) SB2360 

PP1452 


170 

PT1467 


RB2550 

BF1510 


170 

BG1611 


NL2740 

4100 



0B7040 

740 

PQ1672 

PR1725 


10000 

PS1770 

GP. in 

FL2557 

EV2030 

(Lists & 

170 

EC2064 

buffers) 

IB2747 

ED2125 


2070 

EF2177 


DL5037 

FR2203 


2001 

IR2211 


0B7040 

DS2241 


740 

0C2311 

BD2335 

HV2352 

HC2407 

CA2470 

CW2521 


10000 


EP 537 E BR 

WP 551 E BR12 

WQ 551 E BR12 

WV 547 E BRIO 

YP 551 E BR12 

YQ 551 E BR12 

YV 551 E BR12 

ZP 547 E BRIO 


Not included on region tape 
since referenced only by 
uniprint. 


FC|40 001 
100 


DD 40 

101 

Dimension List 

2 

001 


ND 42 

102 

Sentence number 
list 

4 

100 


FD 46 

202 

Op. File IV on 
drum 

1 

000 

RF 47 

202 

Routine File on 
drum 

3 

270 


DQ 52 472 

Group m on 
drum 

ZZ_ 

655 

Length Group m 

DP 53 

400 

Group n on drum 

YY _ 

220 

Length Group II 


TB 

610 

Termination buffer 



address 

BL 

2260 

Listing tape block 



limit 
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IA 

PK 


Program listing setup 

0 

TP 

FP 

0P3 

Parameter —> uniprint 

1 

RJ 

0P2 

DP 

Print: LISTING OF PROGRAM 

2 

RP 

10024 

PK4 


3 

TP 

FC 

CT 

Zeroize temporaries 

4 

TP 

XSll 

CT10 

Preset 1st page no. word (assume 
no number 1st page) 

5 

TP 

XS12 

CT11 

Preset 2nd page no. word 

6 

TP 

XS 

CT12 

Preset 1st segment no. word 

7 

TP 

XSll 

CT13 

Preset 2nd segment no. word 

10 

TV 

RC24 

NP4 

Preset one shot jump in Page no. 

11 

TV 

RC25 

NP7 

Preset one shot jump in Page no. 

12 

RP 

YY30000 

PK14 \ 


13 

TP 

PP 

DP J 

Program Load II —>-drum 

14 

RP 

ZZ30000 

PL 1 


15 

TP 

PQ 

DQ J 

Program Load III —> drum 


CA 

PK16 
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© 


Program Listing (Title Section) 


0 

IA 

RP 

PL 

10740 

PL2 \ 


1 

TP 

XSll 

OB J 

Fill output buffer with space char 

2 

TP 

XS 

OB 

Fast feed 1 sym —> sheet hdg. blkt. 

3 

RP 

30004 

PL5 


4 

TP 

XT40 

0B10 

PROGRAM A LISTING —> Sheet Hdg. 

5 

TP 

TC 

TH3 

blkt. 

Codeword —> G.T.H. 

6 

RJ 

TH2 

TH 

Read 1 blk. corrected problem 

7 

RJ 

CL 

CL1 

tape —> list buffer 

Check corr. prob. tape label 

10 

RP 

30144 

PL12 

(i.e. UNTCODEAPROGRAM) 

11 

TP 

LB24 

0B50 

Prog, title —3rd - 7th blkts in 

12 

TP 

RC3 

CT6 

output buffer 

Preset output buffer address 

13 

TP 

FC7 

CT7 

Preset line count (15^) for 1st 
entry following title 0 
# blks preceding XS3 sym. list 

14 

SP 

14 

0 

15 

ST 

FC1 

Q 

lab —>Av 

Decrease by 1 to exclude tape 

16 

LT 

3 

CT16 

label blk. —> Qy- 
* blks. Const. Pool (incl. lab. 

17 

QT 

FC32 

A 

blk. & End blk») —> "v" of temp. 

# blks. to move tape to position 

20 

SS 

CT16 

25 

at begin XS3 sym list lab. 

Dec. by # blks. Const. Pool to 

21 

AT 

TC3 

TH3 

get # blks. to move to begin 
const, pool 

Codeword —> G.T.H. 

22 

RJ 

TH2 

TH 

Move corr. prob. tape forward to 

23 

MJ 

10000 

PL30 

begin Const, pool (or XS3 sym. 
list if no C.P.) 

MJl off=>5 servos; MJ1 on ==> 7 

24 

TP 

TC21 

Q 

servos 

Obj. prog, servo # = 3 —> Q 

25 

TP 

FP55 

FP20 

(5 servos) 

Set listing tape # = 4 in flex. 

26 

TP 

FP55 

FP47 

prints 

Set listing tape # = 4 in flex. 

27 

MJ 

0 

PL33 

prints 

30 

TP 

FP56 

FP20 

Set listing tape & = 7 in flex. 

31 

TP 

FP56 

FP47 

prints 

Set listing tape # = 7 in flex. 

32 

TP 

TC22 

Q 

prints 

Obj. prog, servo # = 6—>Q 

33 

RP 

30010 

PL35 

(7 servos) 
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34 

QT 

TC6 

TC6 

Servo, no.—>Obj. prog, tape 
codeword 

35 

RA 

0 

FC2 

Program listing servo no.—>Q 
(1 in "u M adv.) 

36 

RP 

30003 

PM 


37 

QT 

TCI 6 

TC16 

Servo no. —^program listing tape 
codewords 


CA 

PL40 
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Listing Phase (Subscripted Var. (Drum) Section) 




0 

TA 

TV 

PM 

6 

CT2 

# 77 -CW*s —>Index C 2 

1 

IJ 

CT2 

PM3 

yes Are there subscripted variables? 

2 

MJ 

0 

PM15 

No 

3 

TP 

6 

A 

jn for Dim.List of form 2—*->Au 

4 

AT 

FC77 

5 

jn for Dim. List of form 3—— 

5 

TO 

A 

PM 6 j 

—>”u" of loc. 5 

6 

RP 

[30000] 

PM10 

• Dimension list from drum —»core 

7 

TP 

DD 

DL J 


10 

TO 

RC33 

DS4 

Preset init. add. dim. list 

11 

TV 

RC42 

EV7 

Preset Dim. List rtn. ref .—> subs 

12 

TV 

RC5 

EV32 

var. (drum) entry 

Preset hdg. rtn. ref.—> subs, var 

13 

RJ 

HV 

HV 1 

(drum W/cont.) entry 

Init. subs. var. (drum) hdgs. 

14 

RJ 

EV 

EV 1 

—>sect. hdg. blkt. 

Edit subs. var. (drum) fi write on 

15 

SP 

CT 16 

25 

listing tape 

* blks const, pool (incf. lab. fi¬ 

16 

ZJ 

PM17 y6S 

PN no 

end blks.) —> A in codeword posi¬ 
tion 

Is there const, pool? 

17 

AT 

TC5 

TH3 

Codeword —> G.T.H. 

20 

RJ 

TH2 

TH 

Read const, pool (incl. lab.& end) 

21 

TP 

DL 

A 

from corr.prob. tape— > Dim. List 
region 

1 st word const, pool lab. blk. 

22 

EJ 

TL13 

PN 

—> A 

1 st word const, pool lab. blk. = 

23 

MJ 

0 

WP 

C 0 N S T A ? 

Alarm 10 

24 

TP 

14 

Q 

* blks XS3 sym. list incl. lab. & 

25 

QT 

FC50 

A 

‘ end blks. (If no sym, list, only 

Lab. blk. appears & count = 1) 

26 

AT 

TC23 

TH3 

—> A in position for codeword 
Codeword to read sym. list to 

27 

RJ 

TH2 

TH 

list buffer—> G.T.H. 

Read XS3 sym. list (or lab. blk. 

30 

TP 

LB 

A 

if no list)—> List buffer 

1st word XS3 sym. list lab. 

31 

EJ 

TL4 

PN3 

blk —> A 

1st word XS3 sym. list lab. 

32 

MJ 

0 

WQ 

blk = SYMBOL? 

Alarm 10 


CA 

PM33 
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Non-Subscripted Variable Section 




T A 

PN 


© 

0 

SP 

7 

0 


1 

ST 

FC3 

CT 


2 

SJ 

po no 

PM24 yeS 

© 

3 

TV 

CT 

CT2 

A 

~X 

T\r 

X v 

i?r 

X V/ 

r t 

V JL 


5 

RJ 

OD 

0D2 


6 

TU 

RC12 

PN37 


7 

TP 

XS53 

XS50 


10 

TV 

CT6 

PN12 


11 

RP 

30005 

PN13 


12 

TP 

XS44 

[30000] 


13 

TU 

RC10 

PN21 

© 

14 

RJ 

OC 

0C21 

15 

TP 

FC20 

Q 


16 

TV 

CT6 

PN21 


17 

RA 

PN21 

FC10 


20 

RP 

30003 

PN22 


21 

TP 

[30000] 

[30000] 


22 

RA 

PN21 

FC21 


23 

QJ 

PN24 yeS 

PN20 no 


24 

QJ 

PN25 no 

PN31 yeS 


25 

RJ 

BA 

BA1 


26 

TU 

RC11 

PN21 


27 

TP 

FC22 

Q 


30 

MJ 

0 

PN16 

® 

31 

RJ 

OC 

0C21 

32 

TV 

CT6 

PN41 


33 

RS 

PN41 

FCl 


34 

TP 

FC11 

CT1 


rnit. running add. non-subs. var. 
—» Au, # non-subs. var.—>Av 
Decrease running add. & # non-subs 
var. each by 1 —> temp 
\re there non-subs, var.? No 
=> const, pool section 
* non-subs. var. - 1—> index C, 

»rr» 


V^X \J 


4* am r\ ni h i 

uv/ui|/ • wiiuqxuxulj 

_u i 


non-subs. var. add. - 1 
New page hdg. if required—^out¬ 
put buffer 

Preset initial add. in XS3 sym. 
l i st. 


Setup section hdg. 

Preset add. sect. hdg. blkt = 
output buffer add. 


M Non-subscriptedAvariables" 

Hdg.—^Section hdg. blkt. 

Preset M u M of TP-~> Add. of stored 
col. hdgs. 

Two spa ce blkts.—> outpu t buffer 


Switch 106 I 00000 I OOOOOl —> Q 


Preset add. col. hdg. blkt. = out¬ 
put buffer add. 

2 in "v" adv.—» add. for 1st col. 
hdg. (or underscore) 


Column hdg. (or underscores) 

—> output buffer 
5 in "v" adv.—>Add. for next 
column hdg. 

All column hdg. (or underscores) 
—> output buffer? 

Underscores transferred yet? 

Adv. output buff. add. by 20 1Q 


(2 V 

Preset "u" of TP 
underscores 
Switch 


Add. stored 


04 00000 00000 


Two space blkts —> output buffer 
Set assem. blkt. add. = output 
buffer add. 

Dec. assem. blkt. add. by 1 —> pre 
set far 1st var. sym. 

Preset index C. —> # variables/ 
blkt. - 1 
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© 

© 


35 

RA 

CT 

FC2 

1 in V adv__ running add. 

next var. 

36 

RA 

PN41 

FCll 

Adv. assem. blkt. add. by 3—>add. 
next sym. 

37 

TP 

[30000] 

ES2 

XS3 var. sym. packed left W/77g 


GA 

PN40 


fill —> input edit rtn. 


IA 

PN40 


40 

RJ 

ES 

ES3 

Pack symbol to right with zerogfill 

41 

TP 

ESI 

[30000] 

XS3 var. symbol packed right 
—> output buffer 

42 

RA 

PN37 

FC2 

1 in V* advance to address next 
var. symbol 

43 

RA 

PN41 

FClO 

Adv. add. assem. blkt. by 2 in 'V' 





—>add. for next add. entry 

44 

TV 

A 

PN47 

Preset address for variable address 
entry 

45 

TP 

CT 

CA2 

Running add. for next var. 

—> conversion routine 

46 

RJ 

CA 

CA3 

[30000] 

Convert octal add .—> XS3 W/zerog 
on right 

47 

TP 

CA1 

Running address for variable 
—> output buffer 


50 

RJ 

OC 

OCl 


51 

MJ 

0 

PN35 

=s> same blockette - same sheet 

52 

MJ 

0 

PO 

==> new section 

53 

MJ 

0 

PN55 

=» new blockette - new sheet 

54 

MJ 

0 

PN32 

new blockette - same sheet 

55 

TP 

XS54 

XS50 

Set up section hdg. to continue on 
new sheet 

56 

TV 

CT6 

PN60 

Preset address section hdg. blkt. 

= output buffer add. 

57 

RP 

30007 

PN13 


60 

TP 

XS44 

[30000] 

Non-subscriptedAvariables — con¬ 
tinued —=► sect. hdg. blkt. 


CA 

PN61 
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Constant Pool Section 


© 


© 


© 



IA 

PO 



0 

SP 

10 

17 

Init. running add. const, pool 
—» "u" of A 

1 

TO 

A 

EC 1 

Init. running add. const, pool 
—> input edit routine 

2 

LT 

6 

Q 

jn for constant pool —> Qv 

3 

QT 

FC13 

CT2 

# const, in const, pool—> index 





C 2 

4 

IJ 

CT2 

P06 yeS 

Is there const, pool? 

5 

MJ 

0 

P013 


6 

RJ 

OD 

0D2 

New page hdg. if required —> out¬ 
put buffer 

7 

TO 

RC22 

ED14 

Preset input buff. add. for 1st 
const. - 1 

10 

RJ 

HC 

HCl 

Constant pool hdgs .—> output buf 
fer 

11 

TV 

RC33 

EF 

Preset ent. add. for const, pool 
hdgs. (W/cont.) 

12 

RJ 

EC 

EC 2 

Edit const, pool & write on list 
ing tape 

13 

RJ 

LS 

LSI 

Locate 1st segment label blk. 

14 

MJ 

0 

PP 



CA 

P015 
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Segment Section 


© 


0 

IA 

TO 

PP 

CT 

PPl 

Address seg. lab. blk.—^”u” of NI 

1 

TP 

[30000] 

A 

1st word label blk. —>A 

2 

EJ 

TL 

PT y 1st word label blk. = Z*s? i.e. is 

3 

EJ 

TL1 

PP5 

this end obj. prog.? 

1st word label blk. = SEGMEN? 

4 

MJ 

0 

WV 

Alarm 8 

5 

TP 

XS7 

CT12 

" @SEGME"—>lst seg. no. word 

6 

RA 

PPl 

FC24 

Adv. add. label blk .—> Add. seg. 

7 

TO 

A 

PP 11 

no. (3rd line) 

Preset add. seg. no. (3rd line 

10 

RP 

30006 

PP12 1 

lab. blk.) 

1 

11 

TP 

[30000] 

CT 16 J 

I 3rd - 8 th line lab. blk.—> temps. 

12 

RJ 

BF 

BF 1 

Build Op. File IV this seg. and 

13 

RP 

ZZ30000 

PQ 1 

* sentences —> M v" of index C 5 

L 

14 

TP 

DQ 

PQ J 

1 Program load HI—>core 


CA 

PP15 
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Preface Section 


0 

IA 

TP 

PQ 

CT 16 

A 

Octal segment no .—> Av 

1 

TJ 

FC100 

PQ7 yeS 

12 q (IOio)—> seg. no.? 

2 

DV 

FClOO 

Q 

Divide seg. no. by 12 q (NB-max. 

3 

LQ 

Q 

6 

seg. no. = 63 jq) 

Tens digit seg. no. left 6 

4 

SA 

Q 

0 

Two digit seg. no .—> Av 

5 

SA 

FGlQl 

A 

r.nmroT*+ twn Hinit-irvRPn nn^-> 

6 

MJ 

0 

PQ10 

XS3 and position in A 

7 

SA 

FCll 

14 

Convert one digitio seg. no. 

10 

AT 

XS10 

CT13 

— >XS3 and position in A 

NT A fseg. no .1 0 —> 2 nd seg. no. 

11 

RJ 

OD 

0D1 

word 

Sheet hdgs. (seg. no. & pg.no.) 

12 

SP 

CT17 

25 

—> output buffer 
* blks Pref. (Term )—>A in code¬ 

13 

ZJ 

PQ14 yeS 

PQ26 no 

word position 

Is there Preface? 

14 

AT 

TCI 

TH3 

Codeword —>G.T.H. 

15 

RJ 

TH2 

TH 

Read Preface from eorr. prob. tape 

16 

RJ 

HC 

HC23 

—> input buffer 

Preface hdgs —> output buffer 

17 

TD 

CT22 

EC 1 

Init. running add. Preface —> in¬ 

20 

TV 

RC34 

EF 

put edit routine 

Preset ent. add. for Pref. hdgs. 

21 

TU 

RC 

EDI 4 \ 

(W/continued) in edit rtn. 

Preset input buff. add. —> init. 

22 

RS 

ED14 

FC2 J 

add. - 1 in edit rtn. 

23 

SP 

CT23 

0 

# lines Preface — > Av 

24 

ST 

FCl 

CT2 

# lines Preface - 1 —> index C 2 

25 

RJ 

EC 

EC2 

Edit Pref. and write on listing 

26 

TP 

CT21 

Q 

tape 

* lines partial blk. this segment 

27 

QT 

FC23 

A 

—> Q 

# lines partial blk. segment + 

30 

TO 

RC24 

FR2 

Preface — > Qu 

Preset initial add. Op. File IV 

31 

TO 

RC40 

PR14 

(drum) in Op. File IV control rou¬ 
tine 

Preset add. File list —> limiting 

32 

ZJ 

PR yes 

PR1 no 

add. initially 

Is there partial blk? 


CA 

PQ33 
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Sentence Section 


© 

© 

© 


IA PR 


0 

SP 

FC2 

6 

1 

AT 

CT20 

IR 1 

2 

RJ 

IR 

IR2 

3 

TO 

RC 

ED14 1 

4 

RS 

ED14 

FC2 J 

5 

IJ 

CT5 

PR10 yGS 

6 

SP 

CTl7 „oc 

25 

7 

ZJ 

PR 37 ye 

PS 35 no 

10 

RJ 

OD 

0D2 

11 

RA 

PR14 

FC2 

12 

TJ 

RC40 

PR 14 

13 

RJ 

FR 

FR 1 

14 

TP 

[30000] 

CT 

15 

RA 

PR 14 

FC2 

16 

TO 

A 

PR 17 1 

17 

TP 

[30000] 

A J 

20 

ST 

FC2 

Q 

21 

LQ 

Q 

17 \ 

22 

TO 

Q 

ECl J 

23 

LQ 

Q 

6 

24 

TV 

Q 

CT2 

25 

SJ 

PR 32 

PR26 

26 

TP 

CT 

XT3 

27 

TV 

RC4 

EF 

30 

RJ 

HC 

HC33 

31 

MJ 

0 

PR 35 

32 

TP 

CT 

XT47 

33 

TV 

RC22 

EF 

34 

RJ 

HC 

HC51 


Set blk. count = 1 in A in code¬ 
word position to count part. blk. 

# blks. (incl. part, blk.) seg. 

+ Pref. — > input fill buffer rtn. 
Fill input buffer 

Preset input buff. add .—> init. 
add - 1 in edit rtn. 

Are there more sentences this 
segment? 

Is there Termination? 

New page hdg. if required —> out¬ 
put buffer 

Adv. add. File list by 1 —> add. 
next sent. no. 

Limit add. file list —» current 
address? 

Fill file list (core) from Op. 
file IV (drum) 

XS3 sent. no. from file list 
—> temp. 

Adv. add. file list —> add. of 
word with # lines & running add. 
of sent. 

# lines this sent.—> Au? running 
add. this sent.—> Av 

Decrease * lines sent, by 1 —>Au 
Running add. this sent, (or lib. 
rtn.) —> input edit rtn. 


# lines this sent, (or lib. rtn.) 
—> index C 2 

(+) => sentence ; (-) => library 
routine (Cl£. left most bitof INFO 
word) 

Sent. no.—>hdg. 

Preset add. sent. hdg. W/cont. 

in edit routine 

Sent. hdgs. —> output buffer 

Library routine name—>hdg. 
Preset add. lib. rtn. hdg. W/cont 
in edit. rtn. 

Lib. rtn. hdgs. —> output buffer 
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35 

RJ 

EC 

EC4 

Edit sent, (or lib. rtn.) & write 
on listing tape 

36 

MJ 

0 

PR 5 


QT 

U 1 

AT 

TCI 

TH3 

Codeword to tape handler 


CA 

PR 40 




IA 

PR 40 



40 

TU 

5 

PR41 

Preset jn of repeat to trans. 

Dim. List —»core 

41 

RP 

[30000] 

PS \ 


42 

TP 

DD 

DL J 

Dimension list from drum—»core 


CA 

PR43 





Subscripted Variables (core) and Termination Section 



0 

IA 

RJ 

PS 

TH2 

TH 

Read Termination —» input buffer 

1 

RJ 

OD 

0D2 

New page hdg. if required —> out¬ 

2 

SP 

CT23 

43 

put buffer 

# lines Term. /2 = # subs. var. 

3 

LT 

0 

A 

this seg.—> A L 
# subs. var. this seg .—> A r 

4 

ST 

FCl 

CT2 

* subs. var. this seg.-l—>index 

5 

TO 

RC13 

DS15 

Preset add. initial array of this 

6 

TV 

PS5 

EV7 

seg. in Term. 

Preset Dim. List rtn. ref .—> subs. 

7 

TO 

6 

DS21 

var. (core) entry 

Preset jn to search Dim. List, in 

10 

TV 

RC 11 

EV32 

Dim. List rtn. 

Preset hdg. rtn. ref. —> subs. 

11 

RJ 

HV 

HV3 

var. (core) W/cont. entry 

Init. subs. var. (core) hdgs. 

12 

RJ 

EV 

EV 1 

—> Sect. hdg. blkt. 

Edit subs. var. (core) and write 

13 

TO 

RC 

ED14 1 

on listing tape 

Preset input buff. add. —»init. 

14 

RS 

ED14 

FC2 J 

add,- 1 in edit rtn. 

15 

TP 

XT 14 

XT 11 

Set section no. = zero in stored 

16 

TV 

RC10 

EF 

Term. hdgs. 

Preset add. for Term hdgs (W/cont) 

17 

TP 

CT17 

CT5 

in edit rtn. 

* blks. Term. —> index C 5 

20 

TO 

RC34 

EC 1 

Init. running add. Term, buffer 

21 

MJ 

0 

PS34 

—> input edit rtn. 

22 

RA 

XT 11 

FCl 

Adv. section no. by 1 

23 

RJ 

OD 

0D2 

New page hdg. if required —> out¬ 

24 

SP 

CT23 

0 

put buffer 

* lines Termination—»Av 

25 

TJ 

FC31 

PS31 yeS 

171q > # lines Termination? (i.e. 

26 

ST 

FC56 

CT23 

part. blk. Term, left?) 

Decrease # lines Term, by I70g 

27 

TP 

FC42 

CT2 

* lines full blk. Term. - 1 —» in¬ 

30 

MJ 

0 

PS32 

dex c 2 

31 

ST 

FCl 

CT2 

# lines partial blk. Term.- 1 

32 

RJ 

HC 

HC41 

—>- index C 2 

Termination hdgs.—> output buffer 

33 

RJ 

EC 

EC2 

Edit block of Termination and write 

34 

IJ 

CT5 

PS22 no 

on listing tape 

All blks. Termination processed? 

35 

RJ 

IR 

IR14 

Locate next segment label blk. 
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Program load IT —> core 


36 

RP 

YY30Q0Q 

PP 

I 

37 

TP 

DP 

PP 


CA 

PS 40 
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End Listing Phase 



IA 

PT 



0 

TV 

CT6 

PT1 

Preset avail, add. output buffer 

1 

TP 

XS 

[30000] 

Fast feed 1 symbol—> output buffer 

2 

TV 

CT6 

PT5 

Preset avail, add. output buff. 

3 

RA 

PT5 

FC4 

108 in M v" adv. —> output buff, 
add. for "end of listing" blkt. 

4 

RP 

30004 

PT6 


5 

TP 

XT17 

[30000] 

END A OF A LISTING blkt.—?* output 





buffer 

6 

RJ 

BA 

BA1 

Adv. Output Buff. add. by 24 ft (20 in ) 
in "u" and "v" 

7 

RJ 

BB 

BB1 

Terminate listing tape and rewind 

10 

TP 

TC7 

TH3 


11 

RJ 

TH2 

TH 

Rewind binary program tape 

12 

TP 

TC2 

TH3 


13 

RJ 

TH2 

TH 

Rewind corrected problem tape 

14 

TP 

FP10 

DP 3 

Parameter —> uniprint 

15 

RJ 

DP2 

DP 

Print: PROGRAM LISTING ON TAPE [-]. 

16 

TP 

FP21 

DP3 

Parameter—> uniprint 

17 

RJ 

DP2 

DP 

Print: COMPILATION COMPLETED 

20 

MS 

0 

PT20 



CA 

PT21 
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Build Op. File IV for 



IA 

BF 


0 

MJ 

0 

[30000] 

1 

TP 

TC4 

TH3 

2 

RJ 

TH2 

TH 

3 

TP 

FB 

A 

4 

EJ 

TL2 

BF6 

5 

MJ 

0 

YP 

6 

RP 

34100 

BF10 

7 

TP 

ND 

NL 

10 

TV 

RC27 

BF73 

11 

TV 

RC26 

BF61 

12 

TV 

RC30 

BG2 

13 

TP 

RC35 

BG14 

14 

TP 

TC4 

TH3 

15 

RJ 

TH2 

TH 

16 

TP 

FB 

A i 

17 

EJ 

TL3 

BG25 

20 

TU 

BF16 

BF21 

21 

TP 

30000 

Q 

22 

RA 

BF21 

FC2 

23 

SP 

Q 

0 

24 

TJ 

FC60 

BG20 

25 

TJ 

FC61 

BF35 

26 

TJ 

FC62 

BF37 

27 

TJ 

FC63 

BF52 

30 

TJ 

FC64 

BF41 

31 

TJ 

FC65 

BF45 

32 

QJ 

BG21- 

BF76 + 

33 

TP 

RC15 

A 

34 

MJ 

0 

BG 

35 

TP 

RC16 

A 

36 

MJ 

0 

BG 

37 

TP 

PC 17 

A 


CA 

BF40 



Segment 


Codeword —> G.T.H. 

Read 1 blk. Op. File III—^file 
buffer 

1st word file buffer—»A 

1st word file buffer = FILEA3? 

(Op. File III entry label) 

Alarm 10 

Sentence No. (XS3) List —> core 
Preset init. add. Op. File IV 
(drum) 

Preset init. add. statement buff, 
(core) 

Preset init. add. routine buff, 
(core) 

Preset init. add. routine file 
(drum) 

Codeword —»G.T.H. 

Read 1 blk. Op. File III—^File 
buffer 

1st word File buffer — ENDAOF ? 
Yes^=e» end Op. File III this 
segment 

Preset init. add. File Buff. 
Callword (or Z’s) from File buff. 

—>Q 

1 in "u" adv .—> ADD.of INFO, word 

assoc. W/callword 

Callword (or Z’s) — >Ar 

23000 > CW? (pseudo Op. sentence?) 

25000 > CW? (equat. for subs.var.?) 

NB —> end of tape callword not in 

Op. File III 

26000 > CW? (equat. for non-subs, 
var.?) 

30000 > CW? (statement of main 
prog.?) 

50000 > CW? (pseudo operation Hdg.?) 
60000 > CW? (library routine?) 

(+)=>77-CW; (-)=>word of Z’s 

(end of information) 
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Build Op. File IV (cont.) 


40 

IA 

MJ 

BF40 

0 

BG 


41 

QT 

FC50 

A 

Designating bits of pseudo Op. 

42 

LT 

36 

A 

CW —>A 

Designating bits —> M u M of Ar 

43 

SA 

RC20 

0 

Add. base add. pseudo Op. sect. 

44 

MJ 

0 

BGl 

in sent. no. list 

45 

TO 

BF21 

BF46 

Add. info, word—>*ti* of NI 

46 

RA 

[30000J 

FC34 

Lib. rtn. ind. (76 fi )—> Op. code 
of info, word 

Designating bits lib. rtn. C.W. 

47 

LQ 

Q 

41 

50 

TP 

RC21 

A 

> Qu 

51 

MJ 

0 

BG 


52 

TU 

BF21 

BF53 

Add. info, word —> n u" of NI 

53 

TP 

[30000] 

A 

Info, word —>A 

54 

TJ 

FC25 

BF56 no 

Does info, word have "IP M flag? 

55 

MJ 

0 

BF76 

Yes => omit from file 

56 

QT 

FC54 

A 

Last 3 digits of C.W .—> Au 

57 

SA 

RC15 

0 

Add. base address statements in 

60 

TO 

A 

BF61 

sent. no. list 

Add. of XS3 sent. no. correspon¬ 

61 

TP 

[30000] 

[30000] 

ding to CW—> "u" of NI 

XS3 sent, no *—> statement buffer 

62 

RA 

BF61 

FCl 

Adv. add. in stmt. buff, by 1 in 

H M 

63 

TV 

BF61 

BF65 

V 

Preset next add. stmt. buff. 

64 

TO 

BF21 

BF65 

Info. word —> stmt. buff. 

65 

TP 

[30000] 

[30000] 

Information word — > stmt. buff. 

66 

AT 

FCl 

BF61 

Adv. add. in stmt. buff, by 1 in 

WM 

67 

TP 

A 

Q 

V 

70 

QT 

FC32 

A 

Next add. in stmt. buff.— > Av 

71 

TJ 

RC36 

BF76 no 

Statement buffer full? 

72 

RP 

30170 

BF74 


73 

TP 

SB 

[30000] 

Stmt. buff .—> Op. File IV (drum) 

74 

RA 

BF73 

FC56 

Adv. add. Op. File IV (drum) by 

75 

TV 

RC26 

BF61 

1708 

Preset add. stmt. buff .—> init. 

76 

RA 

BF21 

FC2 

add. 

Adv. Address file buff, by 1 

77 

TJ 

RC23 

BF21 yeS 

in M u M 

More entries in file buff, to be 

100 

MJ 

0 

BF14 

processed? 


CA 

BF101 
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Build Op. File IV (cont.) 




IA 

BG 


@ 

0 

QA 

FC54 

A 

© 

1 

TU 

A 

BG2 


2 

TP 

[30000] 

[30000] 


3 

RA 

BG2 

FC1 


4 

TU 

BP 21 

BG6 


5 

TV 

BG2 

BG6 


6 

TP 

[30000] 

[30000] 


7 

AT 

FC1 

BG2 


10 

TP 

A 

Q 


11 

QT 

FC32 

A 


12 

TJ 

RC37 

BF76 no 


13 

RP 

30170 

BG15 


14 

[TP 

RB 

[30000]] 


15 

RA 

BG14 

FC56 


16 

TV 

RC30 

BG2 


17 

MJ 

0 

BF76 


20 

ZJ 

BF33 

BF76 

© 

21 

RJ 

TH2 

TH 


22 

TP 

FB 

A \ 


23 

EJ 

TL3 

BG25 J 


24 

MJ 

0 

YQ 


25 

RS 

BF61 

RC26 


26 

SA 

FC57 

17 


27 

TU 

A 

BG31 


30 

TV 

BF73 

BG32 


31 

RP 

[300001 

BG33 


32 

TP 

SB 

[30000] 


33 

RS 

BG2 

RC30 


34 

SA 

FC57 

17 


35 

TU 

A 

BG37 


36 

TV 

BG14 

BG40 


37 

RP 

[30000] 

BG41 



CA 

BG40 



Base add. +last 3 digits CW = add. 
XS3 sent. no. —Au 

XS3 sent. no .—> routine buffer 
Adv. add. in routine buff, by 1 
in V' 

Preset add. info, word 
Preset add. routine buff. 

Info, word —> routine buff. 

Adv. add. routine buff, by 1 in *V* 

Next add. in routine buff . —> Av 
Routine buff, full? 

Routine buff .—> routine file 
(drum) 

Adv. add. routine file (drum) 
by 170 q 

Reset init. add. routine buffer 


Read 1 blk. Op. File III—>file 
buffer 

1st word file buffer = END A OF ? 
Yes => end Op. file III this seg¬ 
ment 
Alarm 10 


Part. stmt. buff.—> Op. File IV 
(drum) 
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Build Op. File IV (cont.) 



IA 

BG40 



40 

TP 

RB 

[30000] 

Part, routine buff. —> routine 
file (drum) 

41 

SP 

BG32 

0 

Add. Op. File IV—> Av 

42 

SA 

BF61 

0 

Adv. add. Op. file IV by * lines 
part. stmt, buff» Av 

43 

TV 

A 

BG54 

Preset add. Op. file IV 

44 

SS 

FCl 

17 

Add. of info, word for last stmt, 
of seg. —> Au 

45 

TU 

A 

BG46 

Preset drum address of last stmt, 
info, word 

46 

RA 

[30000] 

FC24 

Adv. # lines last stmt. Rtn. by 

2 in V 1 to count "ip' and blank 

47 

RS 

BG14 

RC35 

# lines routine file —> Av 

50 

AT 

BG2 

Q 

# lines routine file + * lines 
part. buff. = total # lines 
routine file 

51 

SA 

FC57 

17 

jn to trans. routine file to Op. 
file IV —> Au 

52 

TO 

A 

BG53 


53 

RP 

[30000] 

BG55 


54 

TP 

RF 

[30000] 

- Routine file (drum) —> Op. file 




- 

IV (drum) 

55 

RS 

BG54 

RC27 

# lines Op. file IV (drum) before 
addition of routine file —> Av 

56 

QA 

FC32 

A 

# lines Op. file IV + # lines 
routine file = total * lines of Op. 
file IV-»Q 

57 

LT 

43 

CT5 

(# lines Op, file IV)/2 = * sen¬ 
tences this segment —> M v M of C5 

60 

MJ 

0 

BF 



CA 

BG61 
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Locate 1st Segment Label Blk. on Obj. Prog. Tape 



IA 

LS 


0 

MJ 

0 

[30000] 

1 

TP 

FC36 

CT2 

2 

TO 

RC42 

CT 

3 

TP 

TC15 

TH3 

4 

RJ 

TH2 

TH 

5 

TP 

LB 

A 

6 

EJ 

TL1 

LS yeS 

7 

IJ 

CT2 

LS4 h0 

10 

MJ 

0 

BRIO 


CA 

LSll 



363 —> index C 2 

Preset initial add. seg. lab. 

blk —> 1st word list buffer 

Read 1 blk. Object Prog, tape 

—> list buffer 

1st word list buffer—>A 

(A) = SEGMEN ? (i.e. is blk. 1st 

seg. label blk.?) 

378 blocks checked? 

Alarm 8 
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Check Label Corrected Prob. Tape 



IA 

CL 




0 

MJ 

0 

[30000] 


1 

TP 

FC24 

Q 


Switch —>Q (S.t. go back to begin 






loop 23 q times) 

2 

TU 

RC42 

CL3 


Preset *u M of NI—> Init. add. 






input buff. 

3 

TP 

[30000] 

A 


Next word from corr. prob. title 






blkt .—>A 

4 

RP 

20006 

CL6 



5 

EJ 

TL5 

CL 


Is this partial corr. prob. title? 

6 

RA 

CL3 

FC2 


Adv. add. in title blkt. by 1 in 

It H 

7 

_QJ 

CLIO yeS 

CL3 

no 

u 

Was this last word in title blkt.? 

10 

MJ 

0 

YV 


Alarm 10 


CA 

CLll 
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Page Number Routine 


0 

T A 
xn 

MJ 

NP 

0 

[30000] 


1 

TP 

CTll 

Q 

2nd page no. word —> Q 

2 

QT 

FC12 

A 

Last digit page no.— 

3 

TJ 

XS2 

NP20 yes 

9 in XS3 > last digit page no.? 

4 

RJ 

NP4 

[30000] 

One shot jump ( 1 st time—>Pnl5; 

5 

OT 

TC ““ 

FC13 

A 

succeeding times—>NI) 
last two digits paae'na ,—> A 

6 

TJ 

XS4 

NP25 yeS 

99 in XS3 > last two digits page NO? 

7 

RJ 

NP7 

[30000] 

One shot jump (1st time —> Pn22 • 

10 

QT 

FC14 

A VPS 

succeeding times—>-NI) 

Last two digits page no .—>A 

11 

TJ 

XS 6 

NP27 y 

999 in XS3 > last three digits 

12 

TP 

XS17 

CT10 

page no .? 

AAA CON —> 1 st page no. word 

13 

TP 

XS20 

CTll 

TINUED —> 2nd page no. word 

14 

MJ 

0 

NP30 

15 

TP 

XS13 

CT 10 

AAAAAP —> 1 st page no. word 

16 

TP 

XS14 

CTll 

AGEA10—>2nd page no. word 

17 

MJ 

0 

NP30 


20 

RA 

CTll 

FCl 

Adv. page no. by 1 q 

21 

MJ 

0 

NP30 

22 

TP 

XS15 

CT10 

AAAAP A—>ist page no. word 

23 

TP 

XS 16 

CTll 

GEAl 0 0 —>2nd page no. word. 

24 

MJ 

0 

NP30 


25 

RA 

CTll 

FC15 

Advance next to last digit of page 

26 

MJ 

0 

NP30 

number by one octal and change last 

27 

RA 

CTll 

FC 16 

digit to zero in XS3 

Advance third digit from right by 

30 

TP 

FC5 

CT7 

one octal and change last two dig¬ 
its to zero in XS3 

Reset line count to four for page 

31 

MJ 

0 

NP 

number line 


CA 

NP32 
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Op. File IV Control Routine 



IA 

FR 




0 

MJ 

0 

[30000] 



1 

RP 

30170 

FR3 \ 

Fill file list in 

core from Op. 

2 

TP 

[30000] 

FL J 

File IV on drum 


3 

RA 

FR2 

FC55 

Adv. Op. File IV 
170 q in "u M 

drum add. by 

4 

TU 

RC25 

PR14 

Preset XS3 sent, 
add. file list 

no. add. init 

5 

MJ 

0 

FR 




CA 

FR6 
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Dimension List Search Routine 


IA DS 

0 MJ 0 [30000] 

1 0 30000 0 

2 0 30000 30000 

30 30000 0 

@ 4 TP [30000] DSl 

5 RA DS4 FC2 

6 TO A DS7 

7 TP [30000] DS2 

10 AT FC2 DS4 

11 TO A DSl2 

12 SP [30000] 0 

13 ST DSl DS3 

14 MJ 0 DS 

@ 15 TP [30000] Q 

16 QT FC23 DSl 

17 LQ Q 17 

20 QT FC23 CT15 

21 RP [30000] EP 

22 EJ DL DS23 

@ 23 SN Q 17 

24 SA DS2l 0 

25 SA DS22 0 

26 TO A DS27 

27 TP [30000] DS2 

30 SA FC2 0 

31 TO A DS32 

32 SP [30000] 0 

33 ST CT15 DS3 

34 TJ FC77 DS44 

35 TJ FC102 DS41 

36 RA DS15 FC103 

37 RS CT2 FClO 

CA DS40 


Subs. var. (core/drum) 

Add. in "u" ’ Output 

Subs. var. XS3 symbol 
Modulus in "u" 

Drum address —> output 

Adv. add. in Dim. List by 1—> add. 

XS3 symbol 

XS3 symbol —> output 

Adv. add. in Dim List by 1 —> add. 

for next drum add. 

Drum add. for next array—>Au 
Drum add. next array-drum add. 
curr. array=3nodulus —=► output 
—>Exit 

Core add. of array—>Qu f drum add. 
of array—»Qv 

Core add. of array —> output 

Drum address of array to "u" of A 
Alarm 1 

Is drum address in modified 
Dimension List? 

- jn+r —> ”u M of A 
+r —>"u" of A 

DL+r (add. of XS3 symbol)—>Au 
Preset NI 

XS3 symbol —> output 

Adv. add. in dim. list—> add. 

for next drum add. 

Preset NI 

Next drum add. in dim. list —> Au 

Next drum add.-drum add. current 

array = modulus —» output 

100008 > Modulus? Yes =>1 repeat 

"TP" in Termination 

17777q > Modulus? Yes=>2 repeat 

"TP"’s in Termination 

6 in "u" advance—» address of next 

array transferred by Termination 

Decrease index by 2 in "v" 
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IA 

DS40 



40 

MJ 

0 

DS 


41 

RA 

DS15 

FC37 

Advance by 4 —> address of next 
array trans. by Termination 

42 

RS 

CT2 

FC1 

Decrease index by 1 in M v H 

43 

MJ 

0 

DS 


44 

RA 

DS15 

FC24 

Advance by 2 —> address of next 
array trans. by Termination 

45 

MJ 

0 

DS 



CA 

DS46 




1822 



Input Buffer Routine 


0 

IA 

MJ 

IR 

0 

[30000] 


1 

[o[o 

000] 00 

30000] 

Input: * blks. seg. + pref. in 

2 

SP 

IR1 

0 VOS 

codeword position 
* blks. seg. + pref. —> A 

3 

TJ 

FC71 

IR10 y 

Max. * blks. input buff. + 1 > * 

4 

ST 

FC66 

IRl 

blks. seg.+pref. still on tape? 
Decrease Blk. count in input line 

5 

TP 

TC12 

TH3 

by # blks. full buffer 

Codeword to read Obj. Prog, tape 

6 

RJ 

TH2 

TH 

G.T.H. 

Fill input buffer with blks. seg. 

7 

MJ 

0 

IR 

+ pref. 

—> exit 

10 

AT 

TCll 

TH3 

Codeword to read Obj. Prog, tape 

11 

RJ 

TH2 

TH 

—> G.T.H. 

Remaining blks. of seg. +pref. 

12 

TP 

FC34 

IRl 

—> input buff. 

Neg. no .—> input line 

13 

MJ 

0 

IR 

—> exit 

14 

TP 

IR1 

A 

Input line —> A 

15 

SJ 

IR26 yeS 

IR16 no 

All blks. seg. + pref. read to buff.? 

16 

SP 

CT17 

25 

(i.e. tape positioned for next seg.) 
* blks. term. —> A in position for 

17 

SA 

IR1 

0 

codeword 

* blks. term. + # blks. pref. not 

20 

AT 

TC6 

TH3 

read to buff .—>A 

Codeword to move forward obj. prog. 

21 

RJ 

TH2 

TH 

tape —> G.T.H. 

Move forward obj. prog, tape 

22 

TP 

TC10 

TH3 

—> begin next seg. lab. blk. 
Codeword to read obj. prog, tape 

23 

RJ 

TH2 

TH 

—* G.T.H. 

Read next segment label blk* —> 1st 

24 

TP 

RC 

CT 

blk. input buff. 

Preset add. 1st word label blk. 

25 

MJ 

0 

IR 

—> Init. add. 1st blk. input buff. 

26 

SP 

CT17 

25 

* blks. term. —> A in position 

27 

MJ 

0 

IR20 

for codeword 


CA 

IR30 
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Advance Output Buffer Address Routine 


0 

IA 

MJ 

BA 

0 

[30000] 

Exit 

1 

RA 

CT7 

FCl 

Adv. line count by 1 in *V M 

2 

RA 

CT6 

FC6 

—> next avail, line no. 

Adv. output buff. add. by 24g 

3 

TJ 

RC41 

B A y es 

(20i 0 ) in M u M & "v" 

Limiting output buff. add. > 

4 

RA 

CT14 

FC5 

Current buff, add.? 

Adv. listing tape block count by 

5 

TJ 

FC73 

BA10 y6S 

# blks. (4) output buff. 

2530g (l368io)>curr. # blks. on 

6 

TV 

RC7 

0D4 

listing tape? 

Set switch ®->@) (end current 

7 

TP 

FC 

CT14 

listing tape at end next page) 
Listing Tp. blk. count = zero to 

10 

TP 

TC16 

TH3 

render test on blk. count in¬ 
effective 

Parameter —> G.T.H. 

11 

RJ 

TH2 

TH 

Output Buffer —> listing tape 

12 

TP 

RC1 

CT6 

Preset output buff. add.—init 

13 

RP 

10740 

BA \ 

ial value 

Fill output buff. W/XS3 space 

14 

TP 

XS11 

OB J 

characters and exit 


CA 

BA15 
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Terminate Listing Tape Routine 



IA 

BB 



0 

MJ 

0 

[30000] Exit 

1 

TV 

CT6 

BB2 

Preset output buffer address 

2 

TP 

XT37 

[30000J Fast feed 1 & printer stop 





—> output buffer 

3 

RA 

CT6 

FC6 

Adv. output buff* add. by 240 
(20 10 ) in w u" & V 

4 

ST 

RC1 

Q 

* words in partial output buff. 

•| M o M M • ~v 

—> "u" Cr V” or y 

5 

QT 

FC32 

CT6 

* words in partial output buff. 
—> H v" of A & temp. 6 

6 

TP 

TC20 

Q 

Codeword to write 1 blk. output 





buff. —> Q 

7 

TJ 

FC31 

BB13~ 

171q > # words partial output 
buffer? 

10 

RA 

Q 

FC72 

Adv. count blks. in part, output 
buffer? 

11 

RS 

CT6 

FC56 

Decrease * words part, output 
buffer by 1 

12 

MJ 

0 

BB7 


13 

TP 

Q 

TH3 

Parameter—> G.T.H. 

14 

RJ 

TH2 

TH 

Partial output buffer —> listing 
tape 

15 

TP 

TC17 

TH3 


16 

RJ 

TH2 

TH 

Rewind listing tape 

17 

MJ 

0 

BB 



CA 

BB20 
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End Current Listing Tape at End of Page 


IA 

BD 



0 

TV 

CT6 

BDl 

Preset avail, output buff. add. 

1 

TP 

XS 

[30000] 

Fast feed 1 —> output buffer 

2 

TV 

CT6 

BD5 

Preset avail, output buff. add. 

3 

RA 

BD5 

FC5 

Adv. output buff. add. —> add. for 
MOUNT A NEXT A LISTING A TAPE , etc. 

4 

RP 

30014 

BD6 1 

L 

5 

TP 

XT23 

[30000] J 

1 MOUNT ANEXT A LISTING A TAPE A ON 

A PRINTER.,etc., —> output buffer 

6 

RJ 

BA 

BA1 

Adv. output buff. add. by 24o (20]f)) 
in M u M & "v" 

7 

RJ 

BB 

BB1 

Terminate current listing tape 
and rewind 

10 

TP 

FC 

CT14 

Reset count of blks. on listing 
tape = zero 

11 

RJ 

BA 

BA12 

Fill output buffer with XS3 space 
characters 

12 

TP 

FP31 

DP3 

Type: CURRENT LISTING TAPE FULL, 

PUT NEW 1500 FT. TAPE ON SERVO 

13 

RJ 

0P2 

UP 

START TO CONTINUE LISTING. 

14 

MS 

0 

0D5 



CA 

BD15 
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Output Control Subroutine 


© 




© 

© 



IA 

QC 


0 

MJ 

0 

[30000] 

1 

IJ 

CT2 

0C10 

2 

RJ 

BA 

BA1 

3 

RA 

OC 

FC1 

4 

TP 

CT7 

A 

5 

TJ 

FC67 

0C21 no 

6 

TV 

RC6 

0D2 

7 

MJ 

0 

OC 

10 

IJ 

CT1 

OC no 

11 

RJ 

BA 

BAl 

12 

TP 

CT7 

A 

13 

TJ 

FC70 

0C17 no 

14 

RA 

OC 

FC10 

15 

RJ 

OD 

0D1 

16 

MJ 

0 

OC 

17 

RA 

OC 

FCll 

20 

MJ 

0 

OC 

21 

RJ 

BA 

BAl 

22 

RJ 

BA 

BAl 

23 

MJ 

0 

OC 


CA 

0C24 



Are there quan. left this section? 
No;adv. output buff. add. by 
20jq and line count by 1 
Adv. exit add. by 1 in **v rt =^new 
section 

Line count — >A 
Was this 55th line on sheet or 
beyond when new section next 
Set switch®— 

Was this last entry in blkt? 

No ^^same blkt. - same sheet exit 

Yes; adv. Output buff. add. by 

20iq and line count by 1 

Line count —> A 

Was this 63rd line on sheet or 

beyond when same section next 

Yes; adv. exit add. by 2 in M v M 

=> new sheet exit 

New page heading —> output buffer 

—> Exit 

Adv. exit add. by 3 in w v M => new 
blkt .-same sheet exit 

Adv. output buffer by 20 iq and 
line count by 1 (space blkt.) 

Adv. output buffer by 20io and 
line count by 1 (space blkt.) 
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Page Heading Control Subroutine 



IA 

OD 



0 

MJ 

0 

[30000] 


1 

TV 

RC6 

0D2 

Set switch®— 

2 

RJ 

0D2 

[0D3] 

Switch® 

3 

MJ 

0 

OD 


4 

RJ 

0D4 

[0D5] 

Switch® B1 = 0D5 




B2 = BD 

5 

RJ 

NP 

NP1 

Adv. page no. 

6 

TV 

CT6 

0D10 

Preset add. 1st seg. no. word = 
avail, output buff. add. 

7 

RP 

30002 

0D11 ) 


10 

TP 

CT12 

[30000] J 

Segment no. words —> sheet hdg. 
blkt. 

11 

RA 

0D10 

FC17 

22q in V* adv. —> add. for 1st 
page no. word 

12 

TV 

A 

0D14 

Preset add. for 1st page no. word 

13 

RP 

30002 

0D15 1 


14 

TP 

CT10 

[30000] J 

Page no. words —> sheet hdg. blkt. 

15 

RJ 

BA 

BAl 

Adv. output buff. add. by 20 iq and 
line count by 1 (Sheet hdg.blkt.) 

16 

RJ 

BA 

BAl 

Adv. output buff. add. by 20io and 
line count by 1 (Space blkt.) 

17 

RJ 

BA 

BAl 

Adv. output buff. add. by 20 |q and 
line count by 1 (Space blkt.) 

20 

MJ 

0 

OD 



CA 

0D21 
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Convert Octal Address to XS3 


<§> 

© 

© 

© 




IA 

CA 





0 

MJ 

0 

[30000] 




1 

0 

30000 

30000 

Output * XS3 address 



2 

[0 

30000 

30000] 

Input xs Octal address in *u 

M 






W/zero (octal) fill 



3 

RJ 

CA30 

CA22 

Convert address 



4 

LT 

6 

CA1 

XS3 add* W/octal zeros on right 





—» output 



5 

MJ 

0 

CA 




6 

RJ 

CA30 

CA22 




7 

LT 

0 

CA1 

XS3 address W/octal zeros on left 





output 



10 

MJ 

0 

CA 




11 

SP 

FC26 

6 

XS3 hyphen —> rightmost digits At 

12 

RJ 

CA30 

CA23 




13 

LT 

0 

CA1 

Converted address W/hyphen left 





—> output 



14 

MJ 

0 

CA 




15 

RJ 

CA30 

CA22 

Converted address —> At packed 





right 



16 

SA 

XS5 

6 

Add. close parent, following XS3 





address 



17 

LT 

0 

CA1 

XS3 address W/close parent. 

—> 1st 





output 



20 

TP 

XS3 

CA2 

Open parent. —> 2nd output 



21 

MJ 

0 

CA 




22 

TP 

FC 

A 

Zeroize A 



23 

TP 

FC34 

CT3 

Set index = 4 



24 

LQ 

CA2 

3 

Next digit octal input add. 







—> Qop 



25 

QA 

RC43 

A 

Add. next digit to be con¬ 

Con- 





verted —> Aop 

' vert 

26 

SA 

FC74 

6 \ 

f Convert digit to XS3 and 

Ad- 

27 

m 

CT3 

1 1 

L Shift—>A t 

M 

ress 





f All 5 digits converted? Yes; 


30 

QJ 

CA24 no 

[30000]yes 

| sub-exit. XS3 address in H 

A" 






l left packed right 




CA 

CA31 
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Convert Octal Word to XS3 


IA CW 


0 

1 

2 

3 



MJ 

0 

[30000] 

0 

30000 

30000 

0 

30000 

30000 

0 

30000 

30000 

0 

30000 

30000 

TP 

FC47 

CW1 


6 

7 

10 

11 

12 


13 


14 


TP FC25 
TP FC25 
TP RC14 
TV FC35 
TP FC46 
RS CW17 
SP CW4 


CW2 

CW3 

CW20 

CW17 

Q 

FC27 

3 


15 

LT 

10000 

CW4 

16 

LT 

0 

A 

17 

SA 

FCll 

[30000] 

20 

[AT 

CW1 

cwn nn 

21 

QJ 

CW22 yeS 

CW13 no 

22 

QJ 

CW23 no 

CW ye 

23 

RA 

CW20 

FC3 

24 

TV 

FC36 

CW17 

25 

MJ 

0 

CW13 


CA 

CW26 



Output - XS3 Op. code 

Output - XS3 *u H add. 

Output - XS3 rt v n add. 

Input - octal computer word 
AAAA W/zero fill—> 1st word 
output 

A W/zero fill —> 2nd word output 
Aw/zero fill —> 3rd word output 
Preset add. 1st output word 
Preset shift count—» 14 q 


switch —>Q 130 1 30200 P 00000 


Decrease shift count by 6 
Next octal digit input word —> 1st 
digit Al 

Shifted input word (A r ) —> input 
line 

Digit to be converted —>rightmost 
digit Ax- 

Con?. octal digit —» XS3 and shift 
to position in A 
Converted digit—» output word 
Output word full? 

Entire octal input word converted? 
1 in rt u* & "v" adv. —> add. next 
output word 

Reset shift count—>368 
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Heading Rtn. for Const. Pool t Preface,Sentence and Termination 
IA HC- 

0 MJ 0 [30000] 


1 

TP 

XS70 

XS65 

2 

TV 

CT6 

HC4 

3 

RP 

30003 

HC11 

4 

TP 

XS63 

r300001 

5 

TP 

XS71 

XS65 

6 

TV 

CT6 

HC10 

7 

RP 

30005 

HCll 

10 

TP 

XS63 

[30000] 

11 

RJ 

OC 

0C21 

12 

TV 

CT6 

HC14 

13 

RP 

30002 

HC15 

14 

TP 

XS56 

[30000] 

15 

RJ 

BA 

BAl 

16 

TV 

CT6 

HC20 

17 

RP 

30002 

HC21 

20 

TP 

XS61 

[30000] 

21 

RJ 

OC 

0C21 

22 

MJ 

0 

HC 

23 

TP 

XS76 

XS73 

24 

TV 

CT6 

HC26 

25 

RP 

30002 

HCll 

26 

TP 

XS72 

[30000] 

27 

TP 

XS77 

XS73 

30 

TV 

CT6 

HC32 

31 

RP 

30004 

HCll 

32 

TP 

XS72 

[30000] 

33 

TV 

CT6 

HC35 

34 

RP 

30004 

HCll 

35 

TP 

XT 

[30000] 

36 

TV 

CT6 

HC40 

37 

RP 

30006 

HCll 


CA 

HC40 
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Setup const, pool sect. hdg. w/o 
continued 

Preset add. sect. hdg. blkt = out¬ 
put buffer 

CONSTANTA POOL —> sect- hdg. blkt. 
Setup Const. Pool sect. hdg. W/ 
continued 

Preset add, sect. hdg. blkt. = out¬ 
put buffer 

CONSTANTA POOL — GONTINUED 
—>sect. hdg. blkt. 

Ady. output buff. add. by 40io 

(50e) 


ADDRESS —> col. hdg. blkt. 

Adv. output buff. add. by 20 iq 
( 240 ) 


Underscores —> output buffer 
Adv. output buff. add. by 40jo 
(508) 

Setup Preface sect. hdg. W/O 
continued 

Preset add. sect. hdg. blkt = out¬ 
put buff. add. 

PREFACE—>sect. hdg. blkt. 

Setup pref. sect. hdg. W/continued 
Preset add. sect. hdg. blkt. = 
output buff. add. 

PREFACE CONTINUED —=»sect. hdg. 
blkt. 

Preset add. sect. hdg. blkt. = 
output buff. add. 

SENTENCE NUMBER [--J^-sect. hdg. 

blkt. 

Preset add. sect. hdg. blkt. = 
output buff. add. 



Heading Routine (Cont.) 


40 

IA 

TP 

HC40 

XT 

[30000] 

SENTENCE NUMBER)--CONTINUED 

41 

TV 

CT6 

HC44 

—> sect. hdg. blkt. 

Preset add. sect. hdg. blkt. = Out¬ 

42 

TP 

XT15 

XT12 

put buffer add. 

43 

RP 

30005 

HC11 


44 

TP 

XT6 

[30000] 

TERMINATION—>sect. hdg. blkt. 

45 

TV 

CT6 

HC50 

Preset add. sect. hdg. blkt = Out¬ 

46 

TP 

XT16 

XT12 

put buffer add. 

Setup stored hdg. W/continued 

47 

RP 

30006 

HC11 

TERMINATION (SECTION—) — 

50 

TP 

XT6 

[30000] 

CONTINUED - > section 

51 

TP 

XT52 

XT50 

hdg. blkt. 

Set up library routine hdg. W/0 

52 

TV 

CT6 

HC54 

continued 

Preset add. sect. hdg. blkt. = Out¬ 

53 

RP 

30005 

HCll 

put buffer add. 

54 

TP 

XT44 

[30000] 

LIBRARY ROUTINE —— —» sect, hdg 

55 

TP 

XT53 

XT50 

blkt. 

Set up lib* rtn. hdg K/continued 

56 

TV 

CT6 

HC60 

Set add. sect. hdg. blkt. = output 

57 

RP 

30006 

HCll 

buffer add. 

60 

TP 

XT44 

[30000] 

LIBRARY ROUTINE [--] — CONTINUED 


CA 

HC61 


—sect. hdg. blkt. 
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Heading Routine for Subscripted Variables 



Ik 

HV 


0 

MJ 

0 

[30000] 

1 

TP 

XS30 

XS25 

2 

MJ 

0 

HV4 

3 

TP 

XS32 

XS25 

4 

TV 

CT6 

HV6 

5 

RP 

30005 

HV15 

6 

TP 

XS21 

[30000] 

7 

TP 

XS31 

XS25 

10 

MJ 

0 

HV12 

11 

TP 

XS33 

XS25 

12 

TV 

CT6 

HV14 

13 

RP 

30007 

HV15 

14 

TP 

XS21 

[30000] 

15 

TU 

RC4 

HV23 

16 

RJ 

OC 

0C21 

17 

TP 

FC20 

Q 

20 

TV 

CT6 

HV23 

21 

RA 

HV23 

FCl 

22 

RP 

30004 

HV24 

23 

TP 

[30000] 

[30000] 

24 

RA 

HV23 

FC21 

25 

QJ 

HV26 yes HV22 no 

26 

QJ 

HV27 no 

HV33 yeS 

27 

RJ 

BA 

BA1 

30 

TU 

RC5 

HV23 

31 

TP 

FC22 

Q 

32 

MJ 

0 

HV20 

33 

RJ 

OC 

0C21 

34 

MJ 

0 

HV 


CA 

HV35 



Set up section hdg. for drum init¬ 
ial 

Set up section hdg. for core init¬ 
ial 

Set add, sect, hdg. blkt, = Out¬ 
put buffer add* 

SUBSCRIPTED VARIABLES 

—> section hdg. blkt. 

Set up section hdg. for drum W/ 
continued 



Set up section hdg. for Core 
W/continued 

Set add. sect. hdg. blkt = Output 
buffer add. 


SUBSCRIPTED 

— CONTINUED - 
Preset *u w of TP 
col. hdg. 

Two spa ce blkts 
Switch 


VARIABLES 


DRUM 

CORE 


out- buffer 

add. of stored 

Output Buffer 
->Q 


06 00000 00000 


Preset add. col. hdg. blkt. = Out¬ 
put buffer add. 

1 in "v" adv .—> add. 1st col. hdg 


Column hdg. (or underscores)—> out 
put buffer 

5 in "v H adv.—>add. for next 
col. hdg. (or underscores) 

All col. hdgs. (or underscores) 

—> output buffer? 

Underscores transferred yet? 

Adv. output buff. add. by 20io 
(24 q) 

Preset M u M of TP —> add. of stored 

Switch |04 | 00000 I 000001 >Q 

Two space blkts. —> output buffer 
—> Exit 
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Edit Subs. Var. and Write on Listing Tape 






0 

IA 

MJ 

EV 

0 

[30000] 



1 

TV 

CT6 

EV12 

Set assem. blkt. add. = Output 
buff. add. 

2 

RS 

EV12 

FC5 

Dec. assem. blkt. add.-^Preset for 
1st sym. 

3 

TP 

FC11 

CT1 

Preset index C, —> 
blkt. - 1 

* variables/ 

4 

RA 

EV12 

FC21 

Adv* assem. blkt. add. —> add. 1st 
part next sym. 

5 

SA 

FCl 

0 

1 in V* adv. —> add, last part 
next symbol 

6 

TV 

A 

EV13 

Preset add. for last part symbol 

7 

RJ 

DS 

[30000] 

Dimension list rtn/ 

DSl = Add. of 
array in 

DS2 ~ XS3 sym. 
DS3 = modulus 
-1 in "u n 

10 

SP 

XS11 

44 

XS3 space char.—>A l 

11 

SA 

DS2 

22 

1st part XS3 sym. —> ; last part 

sym, —> A r 

12 

LT 

0 

[30000] 

1st part XS3 sym. —> output buff, 
(assem. blkt.) 

13 

TP 

A 

[30000] 

Last part X>3 sym> output buff, 
(assem. blkt.) 

14 

RA 

EV13 

FCl 

1 in "V* adv.—> add. for initial 
add. entry 

15 

TV 

A 

EV20 

Preset n u M of TP—> 
ial add. entry 

• add. for init*- 

16 

TP 

DSl 

CA2 

Initial add. for array —> cony, 
routine 

17 

RJ 

CA 

CA6 

Conv. add. (CA) W/0 hyphen. (CAl- 
XS3 add*packed to right) 

20 

TP 

CA1 

[30000] 

Add. entry —> assem 

. blkt. 

21 

RS 

DSl 

FC2 

Init. add. of array 

- 1—> Au 

22 

AT 

DS3 

CA2 

Final add. of array 
routine 

—> conv. 

23 

RJ 

CA 

CA11 

Conv. address (CA) W/hyphen (CA1= 
XS3 add. packed to right) 

24 

RA 

EV20 

FCl 

ADv. assem. blkt. add. by 1 in *V 

25 

TV 

A 

EV26 

Next assem. blkt. add. —> *V* of TP 

26 

TP 

CA1 

[30000] 

Last address for array—> assem. 
blkt. 

27 

RJ 

OC 

0C1 

—► Output control 


30 

MJ 

0 

EV4 

Same blkt,: same sheet 

31 

MJ 

0 

EV 

New section 


32 

RJ 

HV 

[30000] 

New blkt.; new sht. => heading 
W/continued —> output buff. 

33 

MJ 

CA 

0 

EV34 

EV1 

New blkt.;same sht. 
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Edit Coding or Constants Routine 





0 

IA 

MJ 

EC 

0 

[30000] 

Exit next section 

1 

0 

[30000] 

0 

Initial running add. this section 

2 

TP 

RC32 

ED11 

Set MJ to by-pass TJ 

3 

MJ 

0 

EC5 


4 

TP 

RC31 

ED11 

Set TJ for input buff, check 

5 

TV 

CT 6 

EC 16 

Preset add. assem. blkt. = output 

6 

RA 

ECl 6 

FCl 

buff. add. 

Ady, assem. blkt. add.—>aad. for 

7 

TP 

EC 1 

Q 

add. entry 

Running add. 1st word this section 

10 

QT 

FC33 

CT15 

Last digit initial add.—>’*u n 

11 

TP 

ECl 

CA2 

temp. 2 and A 

Init. add. —> input cony, routine 

12 

ZJ 

EC13 no 

EC37 y6S 

Last digit init. add. = zero? 

13 

RJ 

CA 

CA15 

Convert octal address W/parents. 

14 

TV 

CT 6 

EC15 


15 

TP 

CA2 

[30000] 

Open parent, (if 5 digit add. W/ 

16 

TP 

CAl 

[30000] 

parents) or zeros—> output buffer 
XS3 address —> output buffer 

17 

TP 

CT15 

A 

Last octal digit initial add .—> A 

20 

TV 

CT 6 

ED17 

Preset assem. blkt. add. = output 

21 

TJ 

FC37 

EC25 yeS 

buffer 

4 > last digit init. add.? 

22 

TP 

FC 

CT4 

Zero—> blkt. index C 4 (i.e. odd 

23 

SS 

FC37 

0 

line next line has add.) 

Dec. last digit of add. by 4 in H u H 

24 

MJ 

0 

EC 26 

—> A 

25 

TP 

FC 1 

CT4 

Set blkt. index C 4 —> 1 (i.e. even 

26 

TP 

ECl 

Q 

line =s> next line has no add.) 
Init. add. from input —> Qu 

27 

TJ 

FC40 

EC33 yeS 

3 > last digit add.? 

30 

RA 

ED17 

FC35 

Adv. assem. blkt. add. —> Preset 

31 

TP 

FC 

CT 1 

for last entry in blkt. 

Preset index for 1 entry in blkt. 

32 

MJ 

0 

ED 6 

33 

TJ 

FC24 

ED yeS 

2 > last digit add.? 

34 

RA 

ED17 

FC76 

Adv. assem. blkt. add.—» preset 

35 

TP 

FCl 

CT 1 

for 3rd entry in blkt. 

Set index for 2 entries in blkt. 

36 

MJ 

0 

ED 6 


37 

RJ 

CA 

CA3 

Convert octal address W/octal zeros 

40 

MJ 

0 

EC 16 

on right 


CA 

EC41 
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Edit Coding or Const* (Cont.) 




IA 

ED 



0 

TJ 

FC2 

ED4 

V_/ 

1 

RA 

ED17 

FClO 


2 

TP 

FC10 

CT1 


3 

MJ 

0 

ED6 

© 

4 

RS 

ED17 

FCll 


5 

TP 

FCll 

CTl 


6 

QT 

FC41 

CT15 

© 

7 

RA 

EDI 7 

FC21 


10 

RA 

ED14 

FC2 

(L2^ 

11 

[TJ 

RC2 

ED14] 


12 

RJ 

IR 

IR2 


13 

TO 

RC 

ED14 


14 

TP 

[30000] 

CW4 

/■—s. 

15 

RJ 

cw 

CW5 

m 

16 

RP 

30003 

ED20 


17 

TP 

CW1 

[30000] 


20 

RJ 

oc 

0C1 


21 

MJ 

0 

ED7 


22 

MJ 

0 

EC 


23 

MJ 

0 

EF 

© 

24 

IJ 

CT4 

ED46 


25 

RA 

CT15 

FC43 


26 

TP 

FC75 

Q 


27 

QT 

A 

A 


30 

ZJ 

ED40 n0 

ED31 ye 


31 

RJ 

BA 

BAl 


32 

RJ 

BA 

BAl 

© 

33 

TP 

CT7 

A no 


34 

TJ 

FC70 

ED40 0 


35 

RJ 

OD 

0D1 


36 

TV 

EF 

ED37 


37 

RJ 

HC 

[30000] 



CA 

ED40 



1 >last digit add.? 

Adv. assem. blkt. add .—> Preset 
for 2 nd entry in blkt. 

Set index for 3 entries in blkt. 

Dec. assem. blkt. add .—> Preset 
for add. 1 st entry in blkt. 

Set index for 4 entrys in blkt. 

1 st four digits init. add. —> Temp 

2 (add. ctr) 

Adv. assem. blkt. add. by 5 in "v M 
—> add. for next entry 
Adv. input buff. add. by one 
Limiting value > input buff. add. 
Fill input buff, from tape 
Preset input buff. add.—> initial 
add. 

Next word from input buff.— >Conr. 
routine. 

Convert octal word —> XS3 

XS3 entry ( 3 words)—> assem. 
blkt. 

Output control 
=> same blkt .-same sheet 
New section 

New blockette-new sheet 

New blockette-same sheet =£> add. 

entry required next blkt? 

Yes; adv. ctr. (temp. 2) by 10 ft 
in V 0 

Mask —> Q 

Last 2 digits add.—> A 
Last two digits add. = zero? 

Adv. output buff. add. by 20io 
(24 q) (space blkt. —> buff.) 

Space blkt.—► output buffer 

Line count —> A 

Was 2nd space blkt. 63rd line on 

sheet or beyond 

New pg. hdg. blkt. —> output 

buff, and reset line count = 4. 

Sect. hdgs. W/continued —> output 
buffer 
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Edit Coding or Const. (Cont.) 




IA ED4Q 


40 

TV 

CT6 

ED44 

Preset add. assem. blkt. = output 
buff. add. 

41 

RA 

ED44 

FC1 

Adv. assem. blkt. add. —> add. for 
XS3 add. entry 

42 

TP 

CT15 

CA2 

Octal address —> input conv. 
routine 

43 

RJ 

CA 

CA3 

[30000] 

Convert octal address W/octal 
zero on right 

44 

TP 

CA1 

XS3 address entry —> output buffer 

45 

TP 

FC1 

CT4 

Set blkt. index C^ —> 1 (No add. 
entry next blkt.) 

46 

TV 

CT6 

ED17 

Preset assem. blkt. add. = output 
buffer add. 

47 

RS 

EDI 7 

FCll 

Dec. assem. blkt. add. —> preset 
for add. 1st entry in blkt. 

50 

TP 

FCll 

CTl 

Preset index C^ —» * entries/blkt. 

51 

MJ 

0 

ED7 



CA 

ED52 




Edit 

Coding or 

Const, (new 

blkt.-New Sheet Sect.) 


IA 

EF 



0 

RJ 

HC 

[30000] 

Section heading W/continued 
—> Output buffer 

1 

IJ 

CT4 

ED46 no 

Add. entry required next blkt? 

2 

RA 

CT15 

FC43 

Adv. address counter (temp. 2) by 
10 Q in "u" 

3 

MJ 

0 

ED40 


CA 

EF4 
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Edit XS3 Variable Symbol for 77*s 


IA ES 


0 

MJ 

0 

[30000] 

1 

0 

30000 

30000 

2 

0 

30000 

30000 

3 

TP 

FC21 

CT3 

4 

TP 

FC 

ESI 

5 

'LQ 

ES2 

6 

6 

QT 

FC12 

A 

7 

TJ 

FC12 

ESll yeS 

10 

MJ 

0 

ES 

11 

LQ 

ESI 

6 

12 

AT 

ESI 

ESI 

13 

.rj 

CT3 

ES5 no _ 

14 

MJ 

0 

ES 


CA 

ES15 



Output-XS3 symbol packed right 
W/0 8 fill 

Input~XS3 symbol packed left 
W/778 fill 
Set index C3 = 5 
Zero —» output line 
Next XS3 symbol-^ rightmost digits of 
0 

Next XS3 symbol—>rightmost digits 
of A, 

77 8 > symbol? 

Exit on first 77 8 encountered 

Symbol —> rightmost digits output 
All XS3 char, of symbol checked? 
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Tape Handler Codewords 



Ik 

TC 



0 

5 0 

001 

05 

LB 

1 

5 [0 

000 ] 

05 

IB 

2 

1 0 

000 

05 

0 

3 

3 [0 

000 ] 

05 

0 

4 

5 0 

001 

05 

FB 

5 

5 [0 

000 ] 

05 

DL 

6 

3 [0 

000 ] 

[ 77 ] 

0 

7 

1 0 

000 

[77] 

0 

10 

5 0 

001 

[77] 

IB 

11 

5 [0 

000 ] 

[77] 

IB 

12 

5 0 

Oil 

[77] 

IB 

13 

5 0 

007 

[77] 

LB 

14 

5 0 

005 

[77] 

LB 

15 

5 0 

001 

[77] 

LB 

16 

7 4 

204 

[77] 

OB 

17 

1 0 

000 

[77] 

0 

20 

7 4 

201 

[77] 

OB 

21 

7 7 

777 

03 

77777 

22 

7 7 

777 

06 

77777 

23 

5 [0 

000 ] 

05 

U3 


CA 

TC24 




Read 1 blk. corrected prob. tape 
—> list buffer 

Read [OOOO] blks. corrected prob. 
tape —> input buffer 
Rewind corrected prob. tape 
Move forward [0000] blks. corrected 
prob. tape 

Read 1 blk. corrected prob. tape 
—> file buffer 

Read [0000] blks. corrected prob. 
tape —> dim. list region 
Move forward [0000] blks. obj. 
prog, tape 

Rewind obj. prog, tape 
Read 1 blk. obj. prog, tape —> In¬ 
put buffer 

Read [0000] blks. obj. prog, tape 

—> input buffer 

Read 9 blks. obj. prog, tape 

—> input buffer 

Read 7 blks. obj. prog, tape 

—> list buffer 

Read 5 blks. obj. prog, tape 

—> list buffer 

Read 1 blk. obj. prog, tape 

—> list buffer 

Write 4 blks. output buff, on 

listing tape 

Rewind listing tape 

Write 1 blk. output buff, on 

listing tape 

Object prog. Uniservo 3 for 5 
Servo layout 

Object prog. Uniservo 6 for 7 
Servo layout 

Read [0000] blks. corrected prob. 
tape—>list buffer 


1839 



Tape Labels (XS3) 


IA TL 


0 

74 

74747 

47474 

Z 

z 

z 

Z 

Z 

Z 

Word of Z*s 

1 

65 

30324 

73050 

s 

E 

G 

M 

E 

N 


2 

31 

34463 

00106 

F 

I 

L 

E 

A 

3 


3 

30 

50270 

15131 

E 

N 

D 

A 

0 

F 


4 

65 

73472 

55146 

S 

Y 

M 

B 

0 

L 


5 

67 

50342 

65127 

0 

N 

I 

C 

0 

D ' 


6 

01 

67503 

42651 

A 

0 

N 

I 

c 

0 


7 

01 

01675 

03426 

A 

A 

U 

N 

I 

C 

. Source program 

10 

26 

51273 

00152 

c 

0 

D 

E 

A 

P 

labels 

11 

34 

26512 

73001 

I 

c 

0 

D 

E 

A 


12 

50 

34265 

12730 

N 

I 

C 

0 

D 

E . 


13 

26 

51506 

56624 

C 

0 

N 

S 

T 

A 



CA TL14 
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XS3 Codes 


0 

IA 

37 

01010 

10101 

@ 

AAA 

A A 

Fast feed 1 

1 

00 

00000 

00004 

Oq 08 08 08 08 l x 

symbol 

2 

00 

00000 

00014 

08 08 08 Oq 08 9 


3 

00 

00000 

00017 

Oq 08 08 08 Oq ( x 

XS3 open 

4 

00 

00000 

01414 

Oft 

Oft Oft Oft 

9 

9 

parent 

5 

43 

00000 

00000 

>x 

08 08 08 08 08 

XS3 close 

6 

00 

00001 

41414 

08 

08 °8 9 

9 

9 

parent 

7 

37 

65303 

24730 

@ 

S E G 

M 

E 1 

L Segment 

10 

50 

66010 

0 

N 

T A - 

- 

- J 

' number 

11 

oa 

01010 

10101 

A 

AAA 

A 

A ' 

setup 

12 

52 

24323 

00104 

P 

AGE 

A 

l 

13 

01 

01010 

10152 

A 

AAA 

A 

p 


14 

24 

32300 

10403 

A 

G E A 

l 

0 

Page 

15 

01 

01010 

15224 

A 

AAA 

p 

A 

number 

16 

32 

30010 

40303 

G 

E A 1 

0 

0 

setups 

17 

01 

01012 

65150 

A 

A A c 

0 

N 

20 

66 

34506 

73027 

T 

I N U 

E 

D J 


21 

01 

65672 

56526 

A 

SOB 

S 

C 1 


22 

54 

34526 

63027 

R 

I P T 

E 

D 


23 

01 

70245 

43424 

A 

VAR 

I 

A 

Subscripted 

24 

25 

46306 

50117 

B 

L E S 

A 

( 

‘ Variables 

25 

0 

0 

0 

[- 

- - - 

- 

-] 

Section 

26 

02 

26515 

06634 


CON 

T 

I 

Heading 

27 

50 

67302 

70101 

N 

0 E D 

A 

A. 


30 

27 

54674 

74301 

D 

RUM 

) 

A 


31 

27 

54674 

74302 

D 

RUM 

) 

- 

Setups for 

32 

26 

51543 

04301 

C 

ORE 

) 

A 

Preceeding 

33 

26 

51543 

04302 

C 

ORE 

) 

- . 

Heading 

34 

01 

01016 

57347 

A 

A A S 

Y 

M 1 

35 

25 

51460 

10101 

B 

0 L A 

A 

A 

, Subscripted 

36 

01 

01242 

72754 

A 

A A D 

D 

R 

Variable 

37 

30 

65653 

06501 

E 

S S E 

S 

A J 

Column Headings 


CA 

XS40 
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XS3 Codes 


40 

IA 

01 

XS40 

01010 

20202 

A 

A 

A 



41 

02 

02020 

10101 

- 

- 

- 

A A 

A . 

42 

01 

02020 

20202 

A 

A 

- 

- _ 


43 

02 

02020 

20201 

- 

- 

- 

- — 

A J 

44 

01 

50515 

00265 

A 

N 

0 

N - 

s 1 

45 

67 

25652 

65434 

u 

B 

s 

C R 

i 

46 

52 

66302 

70170 

p 

T 

E 

o A 

V 

47 

24 

54342 

42546 

A 

R 

I 

A B 

L 

50 

0 

0 

0 

[- 

- 

- 

- - 

-] 

51 

50 

66345 

06730 

N 

T 

I 

N U 

E 

52 

27 

01010 

10101 

D 

A 

A 

A A 

A J 

53 

30 

65010 

10101 

E 

s 

A 

A A 

A l 

54 

30 

65020 

22651 

E 

s 

- 

- c 

0 } 


55 

65 

73472 

55146 

S 

y 

M B 0 L 

56 

01 

01010 

10124 

A 

A 

A A A A - 

57 

27 

27543 

06565 

D 

D 

R E S S 

60 

02 

02020 

20202 

- 

- 

■■ 

61 

01 

01010 

10102 

A 

A 

A A A - ■ 

62 

02 

02020 

20202 

- 

- 

- - - - , 

63 

01 

26515 

06566 

A 

c 

0 N S T 

64 

24 

50660 

15251 

A 

N 

T A P 0 

65 

0 

0 

0 

[- 

- 

----]• 

66 

50 

66345 

06730 

N 

T 

I N U E 

67 

27 

01010 

10101 

D 

A 

A A A A 

70 

51 

46010 

10101 

0 

L 

A A A A i 

71 

51 

46020 

22651 

0 

L 

- - c o J 


Subscripted 

Variable 

Underscores 


Non-Subscripted 
Variables 
Section Head¬ 
ing 

Setups for 
Preceeding 
Heading 


Non-Subscript- 
ed Variable 
column heading 
Non-Subscript- 
ed Variable 
Underscores 

Constant Pool 
section head¬ 
ing 


Setups for 
Const. Pool 
Sect. Hdg. 


72 

01 

52543 

03124 

A 

P 

R E F A ] 


73 

0 

0 

0 

i- 

- 

I N U E ^ 

„ Preface Section 

74 

50 

66345 

06730 

N 

T 

Heading 

75 

27 

01010 

10101 

D 

A 

A A A A J 


76 

26 

30010 

10101 

C 

E 

A A A A ’ 

Setups for 

77 

26 

30020 

22651 

C 

E 

-“CO 

Preface Section 


CA 

XS100 





Heading 
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XS3 Codes (Cont.) 



IA 

XT 










0 

01 

65305 

06630 

A 

o 

O 

E 

N 

m 

± 

n 

Ei 



1 

50 

26300 

15067 

N 

c 

E 

A 

N 

0 



2 

47 

25305 

40101 

M 

B 

E 

R 

A A 



3 

0 

0 

0 

[Sent. 

no 

. in std. 

form] 

•Sentence 

4 

02 

02265 

15066 

- 

- 

C 

0 

N 

T 


Section 

5 

34 

50673 

02701 

I 

N 

0 

E 

D 

A 

* 

Heading 

6 

01 

66305 

44734 

A 

T 

E 

R 

M 

X ] 



7 

50 

24663 

45150 

N 

A 

T 

I 

0 

N 



10 

01 

17653 

02666 

A 

( 

S 

E 

C 

T 



Termination 

11 

0 

0 

0 

[Section No. 


] 


Section 

12 

0 

0 

0 

[- 

- 

- 

- 

- 

-] 


Headings 

13 

66 

34506 

73027 

T 

I 

N 

U 

E 

D J 



14 

34 

51500 

10003 

I 

0 

N 

A 

0 

ft l 

i 


15 

43 

01010 

10101 

) 

A 

A 

A 

A 

A 



Setups for 

16 

43 

02022 

65150 

) 

- 

- 

c 

0 

N J 


Preceding 

17 

01 

01010 

10130 

A 

A 

A 

A 

A 

E 


heading 

20 

50 

27015 

13101 

N 

D 

A 

0 

F 

A 


21 

46 

34656 

63450 

L 

I 

s 

T 

I 

N 



22 

32 

01010 

10101 

G 

A 

A 

A 

A 

A 



23 

01 

01475 

16750 

A 

A 

M 

0 

0 

N 



24 

66 

01503 

07266 

T 

A 

N 

E 

X 

T 



25 

01 

46346 

56634 

A 

L 

I 

S 

T 

I 



26 

50 

32016 

62452 

N 

G 

A 

T 

A 

P 



27 

30 

01515 

00152 

E 

A 

0 

N 

A 

P 



30 

54 

34506 

63054 

R 

I 

N 

T 

E 

R 



31 

22 

01275 

10150 

♦ 

A 

D 

0 

A 

N 



32 

51 

66012 

63324 

0 

T 

A 

C 

H 

A 



33 

50 

32300 

15251 

N 

G 

E 

A 

P 

0 



34 

65 

34663 

45150 

S 

I 

T 

I 

0 

N 



35 

01 

51310 

15224 

A 

0 

F 

A 

p 

A 



36 

52 

30542 

20101 

p 

E 

R 


A 

A 

\ 



37 

37 

60606 

06060 

1 

2 

2 

£ 

2 

2 

Printer 


CA 

XT40 








Stop 

Symbol 
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40 

IA 

01 

XT40 

01010 

10152 

A A 

A A 

A 

p 


41 

54 

51325 

42447 

R 0 

G R 

A 

M 

h Heading for 

42 

01 

46346 

56634 

A L 

I S 

T 

I 

Listing 

43 

50 

32010 

10101 

N G 

A A 

A 

A 

44 

01 

46342 

55424 

A L 

I B 

R 

A 1 


45 

54 

73015 

45167 

R Y 

A R 

0 

0 


46 

66 

34503 

00101 

T I 

N E 

A 

A 

Library Rou~ 

47 

0 

0 

0 

[Routine name. 

] 

tine Heading 

50 

0 

0 

0 

[- - 

- - 

- 

-] 


51 

66 

34506 

73027 

T I 

N 0 

E 

D J 


52 

01 

01010 

10101 

A A 

A A 

A 

A i 

1 Setups for 

53 

01 

02022 

65150 

A - 

- c 

0 

N - 

1 Lib. Routine 


CA 

XT54 






Heading 
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Flexowriter Printout 



L4 

FP 








0 

00 

FP1 

7 







1 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

2 

52 

24656 

50170 

P 

A 

s 

s 

A 

V 

3 

22 

01010 

10101 

♦ 

A 

A 

A 

A 

A 

4 

01 

46346 

56634 

A 

L 

I 

s 

T 

i 

5 

50 

32015 

13101 

N 

G 

A 

0 

F 

A 

6 

52 

54513 

25424 

P 

R 

0 

G 

R 

A 

7 

47 

22010 

10101 

M 

« 

A 

A 

A 

A 

10 

00 

FPll 

10 







11 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

12 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

13 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

14 

01 

52545 

13254 

A 

p 

R 

0 

G 

R 

15 

24 

47014 

63465 

A 

M 

A 

L 

I 

S 

16 

66 

34503 

20151 

T 

I 

N 

G 

A 

0 

17 

50 

01662 

45230 

N 

A 

T 

A 

p 

E 

20 

0 

0 

0 

[ 





] 

21 

00 

FP22 

7 







22 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

23 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

24 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

25 

01 

26514 

75234 

A 

C 

0 

M 

p 

I 

26 

46 

24663 

45150 

L 

A 

T 

I 

0 

N 

27 

01 

26514 

75246 

A 

C 

0 

M 

p 

L 

30 

30 

66302 

72201 

E 

T 

E 

D 

• 

A 

31 

00 

FP32 

23 







32 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

33 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

34 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

35 

01 

26675 

45430 

A 

C 

D 

R 

R 

E 

36 

50 

66014 

63465 

N 

T 

A 

L 

I 

S 

37 

66 

34503 

20166 

T 

I 

N 

G 

A 

T 


CA 

FP40 









Codeword 


Codeword 


Servo # 
Codeword 


Codeword 
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Flexowriter Printouts (cont.) 



IA 

FP40 









40 

24 

52300 

13167 

A 

p 

£ 

A 

F 

0 


41 

46 

46220 

15267 

L 

L 

• 

A 

P 

0 


42 

66 

01503 

07101 

T 

A 

N 

E 

W 

A 


43 

04 

10030 

30131 

1 

5 

0 

0 

A 

F 


44 

51 

51660 

16624 

0 

0 

T 

A 

T 

A 


45 

52 

30015 

15001 

P 

£ 

A 

0 

N 

A 


46 

65 

30547 

05177 

S 

£ 

R 

V 

0 

77 


47 

0 

0 

0 

[ 





1 


50 

65 

66245 

46601 

S 

T 

A 

R 

T 

A 


51 

66 

51012 

65150 

T 

0 

A 

C 

0 

N 


52 

66 

34506 

73001 

T 

I 

N 

0 

E 

A 


53 

46 

34656 

63450 

L 

I 

s 

T 

r 

N 


54 

32 

22010 

10101 

G 

♦ 

A 

A 

A A 


55 

01 

07220 

10101 

A 

4 

• 

AAAI 

Optional list* 

56 

01 

12220 

10101 

A 

7 

. 

A 

A A J 

ing tape num¬ 


CA 

FP57 








bers for 5 or 


7 servo layout 


1846 



IA FC 


0 

0 

0 

0 

Zero 

1 

X 

0 

0 

1 

X 

1 in V* 

2 

0 

1 

0 

1 in M u" 

3 

0 

1 

1 

1 in n u" & V' 

4 

0 

0 

10 


5 

0 

0 

4 


6 

0 

24 

24 

20io 

7 

0 

0 

15 

10 

0 

0 



i 


11 

0 

0 

3 


12 

0 

0 

77 

Mask 1st XS3 digit 

13 

0 

0 

7777 

Mask 1st & 2nd XS3 digits 

14 

0 

7 

77777 

Mask 1st, 2nd & 3rd XS3 digits 

15 

0 

0 

67 

16 

0 

0 

6667 


17 

0 

0 

22 


20 

06 

0 

0 


21 

0 

0 

5 


22 

04 

0 

0 


23 

0 

77777 

0 

n u M mask 

24 

0 

2 

0 


25 

01 

0 

0 

XS3 space 

26 

02 

0 

0 


27 

0 

0 

6 


30 

0 

0 

30 


31 

0 

0 

171 


32 

0 

0 

77777 


33 

0 

7 

0 


34 

76 

0 

0 


35 

0 

0 

14 


36 

0 

0 

36 


37 

0 

4 

0 


40 

0 

3 

0 


41 

0 

77770 

0 


42 

0 

0 

167 


43 

0 

10 

0 


44 

0 

0 

16 


45 

0 

0 

11 


46 

30 

30200 

0 


47 

01 

01010 

10000 


50 

0 

7700 

0 


51 

0 

07777 

0 


52 

0 

166 

10 

# const* allowed in 1st blk. 
Const. Pool on obj. prog, tape (u 
Minimum * blks. preceding 1st 
seg. lab. blk. on obj. prog, tape 

53 

0 

167 

1 


54 

0 

777 

0 


55 

0 

170 

0 



1847 



56 

0 

0 

170 


57 

0 

0 

30000 


60 

0 

23000 

0 


61 

0 

25000 

0 


62 

0 

26000 

0 


63 

0 

30000 

0 


64 

0 

50000 

0 


65 

0 

60000 

0 


66 

0 

1100 

0 

Max. # blks. input buffer 
(9 10 or 11 8 ) 

67 

0 

0 

70 

Limit for line count when new 
section next C56l0^ 

70 

0 

0 

100 

Limit for line count when .same 
section next (64jq) 

71 

0 

1200 

0 

Max. # blks. + 1 (IOiq or 12 q) in 
input buffer 

72 

0 

100 

0 


73 

0 

0 

BL 

Listing tape block limit (1200iq 
per Univac sys. convention) 

74 

03 

0 

0 


75 

0 

77 

0 


76 

0 

0 

7 


77 

0 

10000 

0 


100 

0 

0 

12 


101 

0 

CA 

0 

FC102 

303 



1848 



Relative Constants 


IA RC 


0 

0 

IB 

0 

Init. add. input buff. 

1 

0 

OB 

OB 

Init. add. output buff. 

2 

TP 

IB2070 

CW4 

Last add. input buffer + 1 

3 

0 

0B264 

0B264 


4 

0 

XS34 

HC36 

Add. stored subs. var. col. hdg.; 
ent. add. sent, hdgs W/cont. 

5 

0 

XS40 

HV7 

Add. stored subs, var, underscores; 
ent. add. subs. var. drum W/cont. 

6 

0 

0 

0D4 

To preset @ —> ® 

7 

0 

0 

BD 

To preset ® — 

10 

0 

XS55 

HC45 

Add. stored non-subs. var. col. 
hdg.;ent. add. term, hdgs W/cont. 

11 

0 

XS60 

HVll 

Add. stored non-subs. var. under¬ 
scores; ent. add. subs. var. (core) 
hdgs. W/cont. 

12 

0 

LB170 

0 

Init. add. XS3 Sym. list 

13 

0 

IB1 

0 

14 

AT 

CWl 

CWl 


15 

0 

NL 

0 

Base add. statements in sent. no. 
list 

16 

0 

NL1000 

0 

Base add. subs. var. EQ. in sent, 
no. list 

17 

0 

NL2000 

0 

Base add.non-subs. var. EQ.in sent, 
no. list 

20 

0 

NL3000 

0 

Base add. pseudo Ops. in sent. no. 
list 

21 

40 

NL3100 

0 

Base add. lib. rtns. in sent. no. 
list (Ind. bit in Op. code) 

22 

0 

DL167 

HC55 

Add. 1st const. - 1 in input buffer 

23 

TP 

FB170 

Q 

24 

0 

FD 

NP15 

Init. add. Op. file IV on drum; 
Preset one shot jump page no. rtn. 

25 

0 

FL 

NP22 

Init. add. Op. file IV in core; 
Preset one shot jump page no. rtn. 

26 

0 

0 

SB 

Init. add. statement buffer 

27 

TP 

RF 

FD 

Init. add. Op. file IV (drum) 
buffer in M v H 

30 

0 

0 

RB 

Init add routine buffer 

31 

TJ 

RC2 

ED14 


32 

MJ 

0 

EDI 4 


33 

0 

DL 

HC5 


34 

0 

TB 

HC27 


35 

TP 

RB 

RF 

Init. add. routine file (drum) in 
»»„»« 

36 

0 

0 

SB170 

V 

Limit value for statement buff, 
(last add. + 1> 

37 

0 

0 

RB170 

Limit value for routine buff. 

(last add. + 1 


1849 



40 

TP 

FL170 

CT 

Limit value file list (last add. 
+ 1 in n u") 

41 

0 

0B740 

0B740 

Limit value output buff, (last 
add. + 1 ) 

42 

0 

LB 

DS4 

Init. add. list buffer 

43 

07 

0 

0 



CA 

RC44 




Explanation of Counters,Indexes,Temps.,Etc. (CT) 


;to 

[0 

0 

0 ] 

Temp. 1 curr. subs. var. CW. 
running add. etc. 


1 

0 

0 

[ 0 ] 

Index C^ 


2 

0 

0 

[ 0 } 

Index C 2 


3 

0 

0 

[ 0 ] 

Index Cg 


4 

0 

0 

[01 

Index C 4 


5 

0 

0 

[ 0 ] 

Index C 5 


6 

0 

[ 0 ] 

[ 0 ] 

Output buff. add. (next avail. 

blkt 

7 

0 

0 

[ 0 ] 

Line count (next avail, line) 


10 

0 

0 

0 

1 st page no. word 


11 

0 

0 

0 

2 nd page no. word 


12 

0 

0 

0 

1 st segment no. word 


13 

0 

0 

0 

2 nd segment no. word 


14 

0 

0 

0 

Count of blocks on listing tape 

15 

[0 

0 

0 ] 

Temp. 2 


16 

0 

0 

[01 

Seg. no. (octal) 


17 

0 

0 

[01 

* blks. in Term. 


20 

0[0 

000 ] 00 

0 

* full blks. seg. + Pref. 


21 

0 

[ 0 ] 

(01 

3 lines part. blk. and H.S.S. 

3rd- 

22 

RJ 

[p] 

[ 0 ] 

Pref. exit and entry in "u" & 
" v » 

8 th 

Lines 

23 

0 

0 

[01 

3 lines preface 

seg. 

lab. 

blk. 
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